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in lusar a duda al9una tiene Ud. en sus manos el 
ibro mas completo de Programas y rutinas escrito 
ara la Commodore 64 en idioma castellano. Las 
rosas utilidades escritas en lenguaje de 
áquina a trawes del BASIC muestran en todo su 
sPlendor a esta Poderosa comPutadora. 


aPlicaciones Presentadas wan desde las ayudas 
ara Pro9ramar y tipear Prosramas hasta usos 
almente EEFECTIVOS que justifican aun mas 
oseer en el hogar o en la oficina la C-64, 


A fir de brindarle la maxima se9uridad al tiPear 
os Programas y de Pasar Por el menor numero de 
onvenientes hemos Preparado instrucciones Jue 
sumen los errores mas frecuentes y a la vez mas 
tastroficos. como Por ejemplo Perder el 
Po9rama tiPeado Por la imPaciencia de hacerlo 
correr sin 9rabarlo Previamente. 


Como los Pro9ramas Presentados corresPonden a los 
Puntos claves de la Pro9ramacion. Ud. no solo 
aPrendera y se ubicara mejor en el mundo de la 
computacion sino que tambien estara orsulloso de 
Poseer LA FANTASTICA C-64. 
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JOS UTILES PARA TIPERR LOS PROGRAMAS 


Utilice las facilidades que brindan los 

ramas Ue le Permiten agilizar y cometer 

Os errores, como los comandos inmediatos y el 
ini-teclado numerico. 


Cuando el Programa supera Una Pagina MO lo tipee 
todo en forma consecutiva. Vaya Grabandolo, Por 
ejemplo cada 19 minutos. De este modo Prevenimos 
cualquier Perdida accidental o Por corte de 
energia elecrica. 


«Una vez 4ue termina de Pasar todo el Programa NO 
lo corra con RUHN, Primero 3rabelo Para Prevenir 
un Posible bloqueo debido a errores de tiPeo o 

el auto New de muchos Programas basic-assembler. 


Los errores maz comunez.en el traspaso de 
listados se Produce Por <onfundir 1n simbolo Por 
otro. Ejemplos de esto es colocar una letra 0 
Por un cero BM, una letra 1 Por el numero 1, la 
letra 3 Por el signo $, la letra B Por el numero 
B, etc. 
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RECUPERANDO PROGRAMAS 


Muchas veces un Proarama se borra Por error on 
concientemente y luego nos arrePentimos y 
dueremoz  recuPerarlo. Para ello sirve este 
EPoarama. 

Insrese el Pro9rama, corralo con RUN; luego tiPee 
531850) y el Programa Perdido se Podra listar y 
S9rabar normalmente, 


100 REM RECUPERANDO PROGRAMAS 

116 FOR A=833 TO 938 

120 READ B:POKE A, B:C=C+B:MEXT 

139 IF C<>11380 THEN PRINT"EXISTE UN 
ERROR EN LAS LINEAS DE DATA":STOP 

140 END 

200 DATA 85,78,78,69,87,32,83, 83 

210 DATA £3,40,56,53,48,41,32,32 

220 DATA 32,160,3,200,177,43,208,251 
230 DATA 200,152,24, 101,42, 160,255, 200 
240 DATA 145,43,133,45,200,165,44,145 
250 DATA 43,133,46,160,255,200,177,45 
260 DATA 72.240,11,200,177,45,123,46 
27d DATA 104,133,45,24,144,237,200,177 
280 DATA 45,208,243, 104,24,165,45,105 
230 DATA 2,133,45,144,2,230,46,133 

39500 DATA 47,133,49,165,46,123,48,123 
219 DATA 50,169,0,133,51,132,52,165 
320 DATA 55,133,53,165,56,123,54,76 
330 DATA 116,196 
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Pro3rama Permite usar cualquiera de las 

tras en combinacion con las teclas SHIFT oU 
ore Para Poner instantaneamente un comando 
en Pantalla. Esto Permite un ahorro 

rd de tiempo y se cometen menos errores 
Peo. 


LISTA DE COMANDOS 
Letra SHIFT Cormmodor= 


ER === 22====== 
A PRINT PRINTH 
B ID DR 

[as CHRS Asc 

D READ DATA 

E GET END 

F FOR HEAT 

G GOSUB RETURN 
H STEP 

I INPUT INPUT* 
J GOTO ON 

K DIM RESTORE 
L LOAD SAYE 
mM MIDS LEN 

H INT RIND 

D OPEN CLOSE 
(5 POKR PEEK 

1 Br SPCc 

R RIGHTS — LEFTS 
s S3TR$ “AL 

Sl 1 THEN 

U SUR 

Y YERIFY CMD 

ul EF e 

ES] LIST FRE 

iy 5IN Cos 

Z RUN EJE] 
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Si deseamos escribir PRINT en Pantalla hacemos 
SHIFT A. Para escribir DATA Presionamos la tecla 
del losotiPo de Commodore y la letra D. 


El Prosrama se activa O desactiva con el SYS dado 
en Pantalla, 


148 1F PEEKCPEEKCSO 2565071 20THEN 
POKES6, PEEKC563-=1:CLR 


150 HI=PEEKCS6): BASE=HIX256 


160 PRINT"Eclrl PACIENCIA, .." 

FOR AD=9 TO 211:READ Ey 

PORKE BASE+AD. Er :MEXT AD 

PORKE BRSE+26,HI: POKE BASE+S1,H1 
POKE BASE+123,H1: FPOKE EASE+133,HI] 
TF PEEK65532)%=34 GOTO 240 

POKE BASE+2,72: FOKE BASE+48,194 
PORKE BASE+52,225: POKE BASE+92, 160 
POKE BASE+154,72: FOKE BASE+157,224 
PORKE BASE+158,234 

PRINT"Eclr] sk COMANDOS WELOCES *" 
PRINT"SI4HO : SWSR"; BASE 

END 

DATA 120,173,143,2,201.32 

DATA 208,12,169,228,141,143 

6 DATA 2,169,235,141,144,2 
DATAS8,96,169,32, 141,143 
DATA2,169,0,141,144,2 

A DATASS, 96,165, 212,208, 117 
DATA173.141,2,201,3,176 
DATA110,201.0,240, 106,169 

DATA1S9, 133,245, 169,236, 133 
DATA246, 165, 215,201,193, 144 

DATASS, 201,219,176,91,56 
DATA233,193,174,141,2,224 

Y DATAZ. 208, 3,24, 105,26 

DATA170, 129,155, 

DATA134, 158, 
DATAS4, 168, 192 


2,133. 160 


h 
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430 DATAD. 10,240,16,202,16 
449 DATALZ,230,34,208, 2,230 
450 DATASS,177,34,16.246,48 
469 DATA241,200,177,34,48,17 
478 DATAS, 142.211,8,230,198 

480 DATA166,198,157,119,2,174 

499 DATA211,0.40,208,234,230 
504 DATA198,166,198,41,127,157 
510 DATA113,2,230, 198, 169,20 
520 DATA141,119,2,76,.220,235 
530 DATA7E,67,236 

570 DATAIS3,175.199,125,161,123 
DATA141, 164,133, 137,134, 147 
DATA202, 181.159, 151,163,201 
DATH196, 123,192, 149,150, 155 
DATA191,138 
DATAÍ52,176,198,131,128,138 
DATA142, 196, 132,145, 140, 145 
DATA195,187,160,194, 166,208 


DATA197.167,186.157, 165,184 
DATRI90,155,0 
FORAD=0T0156:READ EY 
SUMA=SUMA+B" : NEXTAD 

75B IFSUMAC?20347THENPRINT"ERROR!" 
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MIMI TECLADO MUMERICO 

Las comPutadoras Profesionales e incluso la 
Commodore 128 Poseen aparte del teclado normal 
C"DMERTY"), un mini teclado numerico 1ue facilita 
el insreso de cifras. La utilidad de eze 
miniteclado es inmensa tanto en ProSramacion como 
en los Programas comerciales. Una vez corrido con 
RUN es Posible adoPtar, segun la necesidad 
momentanea, el teclado normal o el redefinido 
Presionando CTRL H Para Pasar de no 3 otro. 

Las teclas que se  redefinen y SU MUEVO 
sisnificado son: M (0), J (1), K (2), L cd, y 
(4): 1 (59), 0 (6). Los numeros 7, S y 2 como el 
resto del teclado no varian. 

Tambien es Posible activar y desactivar el 
miniteclado desde un Programa con POKE 50216,255 
Y POKE 50216,0 respectivamente. 


19 PRIMT"CclrJAGUARDE APROXIMADAMENTE 1 
MINUTO" 

29 FOR 1=50176 TO 50261:READ X:POKE 1,% 
30 HEXF 

49 FOR 1=49360 TO 43151:POKE 1,PEEKCI): 
HEAT 

S0 FOR 1=57344 TD 65535:POKE I,PEEKCI): 
HET 

59 PRINT"PRESIONANDO [CTRL HI] SE PASA DE 
TECLADO NORMAL A TECLADO REDEFIMIDO" 

rá PRINT"O YICEWERSA" 

50 POKESS823, 76: POKESIS24, 0: POKESESZS, 
126 

29 POKESS386, 165: POKESS8587, 1:POKES8588, 
234 

109 FOR 1=44922 TO 44034:POKE 1,234:WEXxT 
119 POKE1,53 

500 DATA 201,14,240,55,44,40, 196,240,28 
.201,25,248,49,201 


La Fantastica C.64 


TA_73,240,40,201,79,240,40,201,74 

201,75,240 
16,201,76,240,16,201,77,240,28 
96,8,169 

49,208,243, 169,50,208,244, 169 
249, 169,52.208 
236,163.53, 203,232, 169.54,208 
48,208,224, 163 
255, 77,40,196,141,40,196,88 
1198,240,252, 120,76 

20,229 


+ desea tener estos programas o algunos de 
en cassette o disket, puede solicitarlos a 
autores, al teléfono 


48-3103 
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EDREIGIENDO PROGRAMAS 
La roceszadores de Palabra tienen seneralmente 
la cualidad de encontrar una Palabra O caracter 
con lo 4ue facilitan la correción del texto, 
Esta rutina Permite encontrar la linea O lineaz 
del Programa en que aParezca la Palabra buscada. 
Lin ejemplo comen de su uso es cuando al 
Programa vemos en Pantalla Un error: "Ina , 
nambe". Para encontrar la linea en donde se 
encuentra ese error tipo9rafico Procedemos asi! 
15 Cargamos el utilitario y lo corremos con RUN 
22 Ingresamos el Programa a corregir. 
3) Antes de la Primer linea del Prosrama Ponemos 
1 "nombre" 
573 49152 
AParece entonces en Pantalla el numero de la 
linea (o de las lineas) en que se halla el 
alfanumerico que Pusimos entre comillas en la 
linea 1. Esta linea 1 debe ser borrada antes de 
Guardar el Programa corresido. 


10 FORI=491527049255:READJ:k=k+J: 

POKEI, Ji NEXT 

20 IFK<915382THENPRINT"ERROR EM DATA": 
STOP 

30 PRIHT"[clr131549152 PARA BUSCAR" 

100 DATALES, 1,133,251,169,8,133,252, 160 
.0,177,251,56,229, 251,56 

110 DATAZ33,5,141,104.192,233,2,141,105 
192,160,0,177,2351,170.200 

126 DATAL?7.231,240.67,133.252,134,251, 
160,0,177,231,56,229,251,178 

136 DATAZO2, 134,2,198,2,165,2,205, 164. 
192,48, 222, 133,253,173,105 

140 DATAIS2,133,254,164,253.177,251,164 
.204,217,5,8, 208,222, 128,253 

158 DATA198,234,208,232,160,2,177,251, 
178.200,177,251,232,205,189,169 

166 DATAS2,32,210.255,.76,26,192,96 
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OMENTANDO PROGRAMAS 
ten dos tiPos de variablez simples 3 
es. Asu vez Pueden ser numericas de Punto 
mte, enteras o alfanumericas, Es imPortante 
la comPrension de un Pro9rama documentar el 
de cada variable. El Programador original 
de entonces retomar con facilidad el hilo de 
Pro2ramacion y el que lo estudia Puede 
ender el flujo del Prosrama. 
e este Prosrama y corralo con RUN. Haga lo 
mo con el Programa a documentar. Cuiebrelo con 
STOP y lueso debe dar el SS 40704. Las 
na se listaran horizontalmente en 
mtalla. 


E iii 
BD REMXA — DOCIUMENTANDO PROGRAMAS + 
pen E 
A=0 
POKES6, PEEK(567)-1 
FOR 1=40704 TO402944:READ A:POKE 
PA=PA+A : NEXT 
IF PACO33670 THEN PRINT "EXISTE UN 
R EN DATA" :END 
PRINT "SS 40704 PARA COMENZAR": NEW 
DATA 165,45,197,47,24b,93,133 
DATA 253,163,46,133,254,160,0 
DATA 162,0,141,61,3,177,233 
DATA 41,125,203,60,177,293,41 
DATA 127,32,210,235,2006,173,61 
3 DATA 2,201,0,208,6,1771,233 
DATA 41,128,208,46,1717,253,41 
DATA 127,32,216,2559.173,61,3 
DATA 32,219,255,169,392,32,210 
DATA 235, 152,24,105,6,144,5 
DATA 164,254,200, 132,254, 168,161 
DATA 253,197,47,24B,17,208,186 
DATA 96,169,37,141,61,3,208 
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310 
320 
330 
340 
350 
360 
370 
390 
390 
400 
410 
420 
430 
440 
450 
460 
470 
430 
499 
509 
510 
520 


DATA 
DATH 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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139, 169,36.141,61.3,208 
203,165,49,197.47,248,114 
165,47, 133,253, 165,42, 133 
254, 168,0,1629,0,141,61 
3,177,253,249,216,41,128 
208,77,177,233,41,127,32 
210,259, 200,173,61,3,201 
B,208,6,177,253,91,123 
293,63,177,253,41,127,32 
210,235,173,61,3,32,210 
259, 163,49,32,210,255, 169 
41,32,210, 255,169, 232,32 
219,233,200,177,253,24,101 


253, 197,49,240,29, 177,253 


24,191,253,170,200,177,233 
101,254, 133,254, 134,253, 208 
163,26,169.,37,141,51,3 

203, 172,169.36. 141,51,3 
208,136, 165,48. 127,59,208 
136,96,200,234,177,233,101 
2394, 197,30, 240, 224, 16,222 
136,208, 202 


12n 


con sprites en el basic de la Commodore 
a O arduo. Es necesario hacer uso de 
idamente a los registros de la Posición 
ite. Para ahorrarse este trabajo se Puede 
rutina que utilizamos a continuacion: 


Uso 


Posibilita mover sprites 
sPrite 9 mov. horizontal 
sprite 0; mov. vertical 
sprite 1 mov. horizontal 
sprite 13 mov, vertical 

“ 


sPrite Ti omow. horizontal 
sPrite 75 mow. vertical 
modifica el movimiento 


FARARRA EE CAARRERRRAA 

* SPRITES EN ERSIC * 

FARAAAAR MARIA ARA RARA 
R_L=58889 TO S51116:READ A:POKE 


TA 169,255,45,0,198,240,16,163,12, 
198,162, 21,182, B 

A 197,157,0,198,202,208,247, 182, 
1,141,80,197,173,20 

A 197,45,0,137,240,3,75,243,199, 

,14,30,197,208,228 
A 76,49,234 

ATA 169,0,22,0,197,208,3,76,97,195 
3,128.61 

DATA 8,197,240,48,254,0,198,203.40, 
2,233,207,76,144,199,20 

DATA 197,45,16,208,208,12,172,16, 
b13,20,197.141,15,203,76 
DATA 43,199.173,15,208,77,80,197, 
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141,16,208,189,0,197,157,0 

220 DATA 198,76,97,199,222,,198,202.40 
¿294,255, 207,208, 29, 173,80 

230 DATA 197,45,16,208,208,12,173,16, 
208, 13,80,197,141,16,208,76 

240 DATA 91,199,173,16,208,77,80,197, 
141,16,208,189,0,197,157,0 

250 DATA 

199, 169,8,232,29,0,197,208,3,76,140,199,1 
69,128,61,0 

260 DATA 197,240,11,254,0,198,208,20, 
222,255,207,76,134,199,222, 

270 DATA 198,208,9,254,255,207,189,0, 
197,157,0,198,202,76,233,198 

280 DATA_169,255,221,255,207,240,3,76, 
43,199,173,80,197,76,17,199 

290 DATA 120,169,192,141,20,3,162,198, 
141,21,3,88,96 

310 5=50433:PRINT"[clr]":H=247:4=1 
320 FOR L=S TO S+16 STEP2 

330 POKE L,H:POKE L+1,W 

340 H=H+1:Y=4+1: NEXT 

3590 POKE 50638, FF 

360 FOR L=2040 TO 2047 

370 POKE L,14:NEXT 

380 FOR L=896 TU 959 

390 POKE L,255:NEXT 

400 E=1 

410 FOR L=53287 TO 53294 

420 POKE L,S:S=9+1:NEXT 

430 POKE 53281,0 

440 3=5:A=10 

4390 FOR L=53248 TO 53263 STEP 2 

460 POKE L,S+48:POKE L+1,A+40 

470 929425: A=A+25: NEXT 

420 POKE 53269,255 

490 POKE 5M432,255 

500 SYS 51104 

510 GOTO 510 
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os PRINT e INFUT Ud. hallará exPresiones 
adas entre corchetes. Significa Yue debe 
arse lo Que indican y NO coriarse 
almente. 


Plos: [ctrl 11 Presione las teclas CTRL w 1 
(18 espacios] Presione 1% veces la 
espaciadora. 


Tired 
=== 
shift clrihome 
clrehome 

shift Icrsr 
lersr | 

shift -crar- 
Sra 

ctrl 
ctrl 
ckrl 
ctrl 
ctrl 
chrl 
ctrl 
ctrl 
ctrl 
ctrl 


ars" amm] TODA 


DIRAN 


La Fantástica 0.54 


TRACE 
El BASIC residente en memoria ROM adolece de la 
falta de ciertos comandos útiles como son HUNBER 
3 TRACE. El comando TRACE es muy importante Para 
detectar errores en un Programa ya due nos 
peace seguir la ejecución del Pro3rama linea 2 
inga. 
Cuando ejecutemos un Programa con TRACE activado, 
el número de cada linea ejecutada sera mostrado 
en Pantalla,Esto le Permitira a Ud. observar el 
camino seduido Por su Programa. 
Esta información Puede ayudarlo a ahorrar yn Sran 
esfuerzo en la ubicacion de errores logicos, 
causados Por el incorrecto flujo del Pro9rama. En 
BASIC esos Problemas Pueden ser causados Por 
eduivocados rimeros de linea en un GOTO o en un 
GOSUB. Tambien Puede ser una incorrecta variable 
on un test condicional IF. 


Con TRACE Ud. Puede determinar el Punto inicial 
enel que el Programa comienza a comPortar<e 
incorrectamente, Ñ 

Este Programa en BASIC caraará una rutina en 
lenguaje de maduina que nos Permitira hacer uso 
del TRACE cuando la ne hemos sin afectar el 
Frosrama 4ue estudiamos. 


Cuando el Programa sea corrido, la rutina TRACE 
es Pokeada en alta memoria, de manera Jue luego 
al carsar el Programa 9 Queremos xaminar la 
rutina 10 sea borrada. En consecuencia cargue su 
Prosrama en Forma normal. 


Utiliza 
Una vez 
comanda 
Podremos 
Jue 375 


E: 
“ado TRACE, a 
cual acti 


“a activado mediante un 

la 
eun 
LT 
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donde el Prosrama ML esta alojado. 

tambien desactivaremos TRACE. 

do Producida Por la rutina consiste de 
rie de nimeros de lineas del Programa, 
a Por  esPacios, Cual du ier impresión 
da Por el Pro9rama Iuedara intercalada con 
s de linea. 


acterística Poco usual de este TRACE es 
strara el resultado de cada sentencia IF 
3. Este resultado sera indicado mediante 
resion de una T £True=verdadero) y una F 


2 mas importante saber si la 
condicional de una sentencia fue ejecutada; 
caracteristica le brinda a Ud. un camino 
Para verificar que el Programa está 
las decisiones correctamente. 


malivier momento Ud. Puede Presionar la tecla 
cuando el Prosrama este corriendo, luego 
ira la ejecucion con el comando CONT. Esto 
itiria Ud. detener el acrolling Para 
werificaciones. Otra Posibilidad  =s 
- en Puntos claves del Pro9rama  3TOPz con 
fin. Tambien es util activar el TRACE zolo 
] Partes donde se sospecha que Puedan 
ir errores. 
] ion TRACE no le resolverá todos los 
É derivados de errores lógicos o de 
amacion, Pero simPlifica el estudio de un 
imPreso o de Pantalla. 


raando el TRACE: 
ls correr 5 Pro39rama no olvide Auardarlo 


ente. Para activar el A utilice 313 
$ Para desactivarlo SY3 40736 
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1 REN A dla 

2 RENO* RUTINA TRACE Ed 

DEA edad ARA AAAR: 

10 LM=PEEK(SS+PEEKCS6)R256-248 

15 HISINTCLM 256) *LO=LM-HÍ4256 

20 POKESS.,LO:POKES6,HI:CLR 

25 TRACESPEER (SS +PEEKOSS 14255 

30 ASTRACE 

ps PRINT:PRINT"CARGANDO LA RUTINA TRACE 
NH" A 

39 FORD=1T0201 :READH:C5=CS+w 

60 1FH=0THENPOKEA.H:GOTOSO 

ro NSTRACE+ABSCMS:HI=IHTCON256):LO=H= 

HIA256 : POKER, LO: A=A+1: POKER, HI 

80 A=A+1 NEXT 

30 HISINTCCTRACE+37342565 :LO=TRACE+37= 

HIR256: POKETRACE+5, LO: POKETRACE+2,H] 

199 IFCS<O11307THENPRINT"ERROR EN 

DATA" ¿STOP 

- 118 PRINT:PRINT"TRACE LISTO. ":PRINT 

120 PRINT" SYS"TRACE"= TRACE ACTIVADO" 

130 PRINT" SYS"TRACE+24"= TRACE 

DESACTIVADO" 

145 END 

594 DATR1E5,76,133,124,162,2,133,125, 

169,0, 133 

501 DATA126,169,0,141,-245,141,-246,141 

que DATA-247,96,169,201,133,124,169,58, 
3 

Lo DATA125,169,176,133,126,96,201,32, 

2l 


pre DATAS.76,115,8,72,173,-247,240,21, 

30 
505_DATA-247,201.167,240,24,169,,141, 
247 

Es DATA32,-211,208,4,1629,84,208,2,165, 
l= 


sur DATAS2,210,255,169,32,32,210,255, 
32,-211 
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ATrA240, 102,165.57,141, 243,141, 


9, 169,0,141.-239,141,-240, 
141,-242,142,-238,162,15,14. 
57-244, 120,245, 173,239, 105, 

41,-239, 173,24, 109, 240, 
A173,-241,105,-241, 141,241, 
202 


6,216,162,2.189.-239.72,74,74 
4,749.32, -224.104,.41. 15,32, 


216,236, 162, 22,32.210, 255,174. 
A104,201,167,2058,3, 141,247, 

4176,3,76,132,0,26,155,57, 205. 
1208, 5, 165,52, 205,246, 96, 283, 
A1,36,9,48,141,-242,76,210,255 
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ORDENAMIENTO IMSTANTAMEO 

Una de las rutinas 3ue no Pueden faltar en la 
coleccion de un Prosramador es aquella Fue 
Permita la alfabetización o el ordenamiento 
numérico de una cantidad importante de elementos 
alfanumericos, Su uso es Practicamente oblidado 
en los Prosramas de aplicaciones, tanto de uso 
Particular como comercial, ya Yue el ordenamiento 
brinda 9ran Flexibilidad y claridad al manejo del 
PROgrama. 

La sisuiente rutina en lensuaje de mad ina, 
accesible desde un Programa en basic, efectúa un 
ordenamiento de 1040 elementos en forma casi 
instantánea ¿solo 2 sesundosz!). Tener en cuenta 
la linea 30%) va que es la que Pasa la 
informacion. 


10 1=49152:5UM=9 

20 READ A:IF A=258 THEN 49 

30 SUM=SUM+A:POKE 1,A:I=1+1:G0TO 20 
40 _1F 5UM<?45295 THEN FRINT"ERROR EN 
DATAS" :END 

109 PRINT"EclrJ" 

119 H=1000 

120 DIM AASCN) 

139 PRINT "CREANDO "N" STRINGS AL AZAR" 
149 SD=-T1:A=RND<SD) 

1390 FOR I=1 TOM 

160 PRINT I"[arriba]" 

170 Ni=INTCRNDC1)410+15 

139 Ag="" 

198 FOR J=1 TO M1 

200 B3=CHR$CINTORNDC1 94264655) 

210 As=A$+BS 

220 MEXT J 

230 RAS =AS 

240 NEXT 1 

250 PRINT "TOQUE UNA TECLA PARA DRDEMAR" 
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GET A$:IF As="" THEN 260 

PRINT "ORDENANDO. .." 

Ti=TI 

SS 49152, MN, ARSCKO 

T2=T1 

PRINT "LISTO" 

PRINT "TOQUE UNA TECLA PARA MOSTRAR 
LA LISTA ORDENADA" 
340 GET AS:IF As="" THEN 340 
358 FOR I=1 TO N:PRINT 1,ARSc 12: NEXT 
368 PRINT:PRINT ON" ELEMENTOS ORDEMADOS 
EN"C(T2-T1>760"SEGUNDOS" 
49152 DATA 32,253,174,32,158,173 
49152 DATA 32,247,183,165,20,133 
49164 DATA 253,165,21,133,254,32 
49170 DATA 253,174,32,158,173,162 
49176 DATA 1.165,71,157,85,193 
49182 DATA 157,125,193,163,72.157 
49188 DATA 195.193,157,145,193,165 
45194 DATA 253.298,2.198,254, 195 
49209 DATA 253,160,3,24,189,125 
49206 DATA 193,101,253,157,125,193 
49212 DATA 189.145,193,101,254,157 
49218 DATA 145,193,136,208, 236,189 
49224 DATA 85.193, 133,80, 189,105 
49230 DATA 193,133,81,189,125,193 
49236 DATA 133,82,189,145,193,133 
49242 DATA 83,32,21,193,144,4 
49248 IATA 202,208,228,96, 165,82 
49254 DATA 133,78,165,83,133,79 
49260 DATA 160.2.177,78,153,250 
49266 DATA 0,136,16,248,48,11 
49272 DATA 24,165,80,103,3,133 
49278 DATA 20,144,2,230,61,160 
49284 DATA 2,177,80.153,247,B 
49299 DATA 136.16.248,32,32,193 
49296 DATA 144,230,56,165,82,233 
49302 DATA 3,133.82.,176,2,198 
49308 DATA 23,32,21,193.176,31 
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49314 
49320 
49326 
49332 
49333 
49344 
493530 
49336 
49362 
49363 
49374 
439320 
49386 
49392 
49323 
49404 
49410 
49416 
49422 
49428 
494.34 
49440 
45d 
49432 
439433 
439454 
4947B 
43476 
45432 
49433 
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160,2,177,22,133,247 
B,136,16,243,32,32 
193,176,223,168,2,177 
28,145,32,135,247,9 
145,50, 136, 16,244,483 
133,160,2.,177,80,145 
73,125, 230,9,145,59 
136, 16,244, 24,182,285 
193,125, 125,193,133,82 
139,105,193, 125, 145,193 
133,33, 102,33, 102,32 
32,21,193,176,22,189 
23,193,157,26, 193,159 
103,193,157,106,193,32 
53, 193,232,32,69,193 
76,71,192,189,125,193 
157, 126,193, 1895, 145,193 
157, 146, 193,32,69,193 
232,32,53,193,76,71 
192,165,81,197,33, 208 
4,163,230, 197,32,96 
160,235, 200, 195,247,176 
11,136,230,176,6,177 
243,209, 251,240, 241,36 


-196,250,96,24, 163,50 


195,3,157,85,193, 165 
31,105.5.157,105,193 
26,56, 165,20, 233,3 
157,125,123,165,81,233 
8,151,145, 192,96, 256 
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ELE TOR 

se Presumotan como hacer Uso de estas 
Es importante saber_ ue responden a 

ASCII. Las f (Nec PA e Pl MR e 

an los valorez 1 6 laz funciones Fis 

6 y FS loz valores 137 a 148. El siguiente 
2. ilustra convenientemente ss aPlicaicion. 


DATA MISION APOLO GUE LLEGO ALA 
16,11.12,13 
2 


CANTIDAD DE TECLAS DE LA C64 
55,58, 86.72 


READ OS: 1F0Z="4"THEH EMD 
PRINT 0$;"--" 
AD AS:PRINT “Fl - "¡As 
AD AS:PRIHT "FS - "AS 
AD AS:PRINT "FS - "¡As 
AD AS:PRINT "FT - "¡mE 
RINT "SU RESPUESTA? 
DA 
AS:IF 5é=""G0T0 250 
= <Aso 
E<133 OR 25136 GOTO 250 
I=A-132:PRINT "FP" 442-1 
= B=A THEN PRINT "CORRECTO! ":G0TO 


NT CALI" 
208 
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AECHIWOS EN CASSETTE 

Almacenar datos en archivos es Primordial cuando 
se desea avanzar en aPlicaciones seriaz. La 
wentaja que Presentan los archivos es We ze 
Pueden actualizar desde teclado sin modificar el 
Programa. 

Los  Prosramas siuientes  ejemPlifican la 
escritura de un archivo ys su lectura. 

Los numeros que siguen a una sentencia OPEM 
sisnifican resPectivamente: el nro. de canal 
(Puede ser cualquier nro. de 1 a 127%, el meo. de 
aParato al We se dirige la información 
(Datasette:l, Wideo:3, ImPresora:%4, Drive de 
discos:B), la dirección secundaria (Escribir:1l, 
Leer:D). 

Es aconsejable Para facilitar la lectura de un 


archivo colocar al Principio el nro. de registros 
o bien "marcar" el fin del archivo (Como en los 
ejemplos en que se usa "-1%), 

Si se desea usar una unidad de discos hay que 
cambiar el segundo numero en los OPEN de 1 a 8. 


106 REM + ARCHIVOS ESCRITOS * 

110 REM * DESDE EL TECLADO * 

120 INPUT"[clrICS abajoJWNRO. DE ITEMS EN 
EL ARCHIVO" ;N:DIM MFcN+1> 

130 INPUT"[abajoJNOMBRE DEL 

ARCHI'Y0";5 NOMS: IF NOM$="+1"THEN END 

148 PRINT"INGRESE CADA ITEM": OPEN 
1,1.1,M0n3 

150 FOR «=8 TO 

WN: INPUT (0: PRINTR 1,10%): IF 

MECA "-1" THEN NEXT 

164 CLOSE1:FOR =0 TO NH 

PRINTEC +HEXT:PRINT"TOGUE UNA TECLA" 
170 GETAS: IFAS=""THEN 170 

130 G0TO 1068 

1520 END 
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de correr el Programa lector de archivos 
de rebobinar el cassette hasta el Punto de 


+ LECTOR DE ARCHIVOS + 
*EclrllS abajoJHOMBRE DEL 
A LEER” NOMS 
E NOMS="+1"THEN END 
Edo ¿Noms e 
PUT LEC 
Elie 418 


"TOQUE LINA TECLA" 
IFAS=""THEN 398 
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EROTECETON DE PROGRAMAS EN CASSETTE 

vando Un Prodrama de caszette es ingresado con 
LOAD: o Srabado con S5SAYE la seccion de memoria 
usada es la Yue va de la direccion 328 a 1013 
Luer MaPa de Memoria en capitulo 7). 

El nombre del Programa se S9uarda a Partir de la 
direccion 833 y el resto se rellena con esPacios. 
Cuando la 064 encuentra un Programa durante un 
LORD. la Pantalla muestra solo los Primeros 186 
caracteres del nombre. Esta ProPiedad Puede 
usarse Para Prevenir refroducciones. 


(10 Grabando con caracteres ocultos: 4l Yrabar 
con un nombre de mas de 16 caracteres. si 
chedueamos 1no O mas de los caracteres Jue no 3e 
muestran en Pantalla Podemos bloduear el Pro9rama 
31 no corresponden al nombre correcto. 
EJemP lo 
32 Brabamos el pro3rama con 17 caracteres. 
SAYE"NOMBRECIO espaciosiA" 
bo incluimos la siguiente subrutina a la 
que vamos al Principio del Programa con GOSUB 
10009: 
10000 ASPEERC2OOI+167:1F CHRECA)= A 
THEN RETURN 


16100 4 
Cuando al9uien intente hacer una copia usara 
HOMBRE y otro y entonces la subrutina de la linea 
10000 bloqueara el Programa. 
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ADOR_64 

Slente Programa simula un completo Panel 

ol de un sintetizador. 

do se transforma en un doble Piano. Jue 

a en Pantalla junto con el estado de los 
de sonido 1ue se estan creando 

Ss de los dos teclados. se muestra  «*n 
la una fila indicadora (arriba? Y una 


Pcion de la actividad de las teclas 


permiten subir y bajar el volumen 

ivamente. Ranoos: max 15, min 9 

bia el estado del modo Mantenido £"M" en 

la indicadora). En este modo los sonidos no 

arecen sino 3e Presiona otras teclas 0 
lo con la barra =sPaciadora 

cambia el estado del modo Multivoz ("Y en la 
indicadora). En este modo Pueden ejecutarse 

Itaneamente hasta 3' 
FS: cambia estados de Caida y Aeordes. 

' ite definir las formas de ondas. 

do un modo esta activado. la letra Jue le 

responde se muestra 31 reverso. 


AS: se cambian Presionado la tecla ETRL 3 un 
del 1al 8 Coctava mas baja Y mas alta 
Pectivamente). 


5: puesto el modo Acord nm F3. una 
fila indicativa aParec la Parte 
jor de la Pantalla. A la izquierda va el 
2, que se cambia Presionando SHIFT 4 un neo 
Mal 3: (Mayor. —(ZiMenor, 2Disminu ido. 
Sumentado, (3)Septimo Mayor, (Septimo Menor. 
ptimo Dominante, (S)3exto Mayor,  (9)Bexbo 


. 
derecha se muestra la Posicion: Fralzo ira 


ion, ¿da inversion. 
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FORMAS DE ONDA: Para redefinir formas de onda 
Presionar F2. La comPutadora Pregunta Por valores 
de Attack, Decay, Sustain, y Release y muestra 3 
la derecha los walores actuales. Si no se desean 
cambios Presionar RETURN, 

La siguiente Presunta es Por el Tiro de forma de 
onda, debiendo ingresar la Primer letra del tiPo 
elegido. Si selecciona Pulse, entonces ze le 
Pedirá una Prororción. 


Refrescando concePtos: 


ATTACK: es el tiempo que tarda el sonido en 
alcanzar el volumen mas alto. 

DECAY: es el tiempo que tarda en caer hasta el 
sostenido (Sustain). 

SUSTRIN: tiempo en que se mantiene el volumen. Un 
organo tiene un alto valor de Sustain. 

RELEASE: determina el tiempo que le toma al 
sonido llegar al silencio. Un valor Grande de 
Release es como una cuerda de Quitarra que 
gradualmente cesa de vibrar, 


Formas de Onda: 

1. SANTOOTH: diente de sierra 
2. TRIANGLE: triangular 

3. PULSE: cuadrada 

4. NOISE: ruido 
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160 REM ARA 
114 REM * SINTETIZADOR 64 * 

206 G0TO0478 x 

240 IFRACATHENRA=E 

256 RESR:T=S+YkZ7 *POKEYN, VRZ?:POKE 

HL, FLCRAD : POKENH., FHERA) :S 1882: POKE 

T+Z4, MW +21 

260 FORI=RATORESTEPSGM(RE-RA%/25FPOKE 

TFLCID:POKET+1,FH< IO ¿NEXT 

270 IFPEEKCIK)=JANDPEEKCIK5-64THEN27B 

200 RASRE:POKET+24.UY+P:Y=+MNkC21+23% 
(=Z2)) ¿RETURN 

310 POKEBF., 20: FORI=20T0Z2:A=kR+C(01, 02, 
TD): POKEWYN, 1427 : POKENL + FLCA) 

320 POKENH. FHCA) :S1S52: NEXT :POKES+Z4, 

UY+Z1:POKES+1 10 04+21 :POKES+18, MW+21 

32M IFPEEKCIKO=JANDPEEKCIK>—64THENS3A 

340 POKES+24, M4+P 0 POKES+1 1, h+P:POKES+ 
18,W'+P: RETURN 

370 ASPEEKCIK) :SW5s1: J=PEEKCET?: IFJ=Z0 

DRA=ZSTHENRETURN 

380 FORI=Z1T0J:R=K(PEEKCET+199+0C:1F 

R=0OCTHENHNEXT : RETURN 

390 TC1)=VEZ7 : POKEYN, TC1):POKENL, FLCRA 

POKENH. FHCR) :SYSSZ 

400 IFMNTHENY=W+21 : IFY=Z3THEN"=20 

416 NEXT:FORI=Z1T0J:POKES+TC1+Z4, We 

21: NEXT 

420 SYSS1: 1FJ=PEEKCET>ANDA=PEEKCIK 

THEN420 

430 FORI=Z1TOJ:POKES+TC19+24,MWP 0 HEAT: 
GOTO378 

474 PRINT"[clr]"CHR$(142);CHR£(8);: 
POKES3230. 0: FOKES32010+08:POKE788,52 
A FORI=1T039:S5P$=SP3+" %:LNF=LNG+M4p" o 
ExT 

4590 PRINT"Ectrl BIOCTAYA=3 v0Z=1 
[ctrl 2JC:S:M: [ctrl 9IWIctrl 6]:[ctrl 
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3JPCctrl 0) [ctrl SIYO0LUMEN=19Cder. 1"LN$ 
500 POKE214,23:PRINT:PRINTTAB(137 
“SINTETIZADOR £4C[homellabajollabajoJ" 
510 As="POR FAVOR ESPERELctrl 2]": 
POKE214,21:PRINT:PRINTTABC13)"[ ctrl 
61'A+: 3=34272:005UB1530 

520 DIMFL(134),FH(1347,K(2557,0(8,2,2): 
00=43:YL=10:MM=1:LL=1:RA=-1 

330 21=1:22=2:23=3:24=4:27=7:23=64: 
FF=253:HB=256 

540 IK=197:BF=199:VN=231:NL=900:NH=9D1: 
ET=829:31=49132:52=494039:FOR1=21T041 
359 KCASCIMIDSC"MEUBERSTO YUI 
CHR$492)CHR$(94) [home 123 XDCYGBHNJIM, L. :7" 
2 19)3=1 NEXT 

569 PRINTTAB(137"[ctrl 4]Ilarribal"As$: 
R=5.8:A=10787,4138: J=22 121/12) 

3790 FORI=394TOBSTEP-1:FH<T=INTCARR HB) + 
FLCIO=ARR—HBRFHC TO 0 ASARJ NEXT 

3898 PRINTTAB:13)"[arribaJ"AS:GOSUB1310 
619 FORI=Z0T098:FORJ=Z0T0Z2:READECI, J, 
DIE IJ 19 0C 1, 3,2) NEXT READOS CIO E NEXT 
620 RERDNMS$C0),NMEC17,NM$C2):FORI=1T08: 
READAD< 1), SRC 10 WT PLOTOS PHOTO NEXT 
630 FOR R=1 TO 2:READI,.J:FORA=IT0J:READ 
IN: POKER, IN:¿NEXT:NEXT 

640 PRIMNTTAB<S)"[abajolíctrl X PARA 
FINALIZAR": T=1 :GOSUBS60 

630 WAITEF.,FF: J=PEEKCIK) :GETAS:R=k 
CASCCASI OO: IFR=OCTHENGOSUBS00 :GOTOG20 
690 IFSLTHENGOSUB240:G0T0680 

700 IFCHTHEMGOSUES10:G0TO650 

719 IFLLTHENGOSUB370:GOTOSG39 

720 T=S+YRZ? 0 POKEWH, YHZ7 : POKENL+FLGRA: 
POKEMH, FHCR) ¿5352 : POKET+24, bIW+Z1 

730 IFMNTHEN!=+21: 1FW=Z3THENW=Z9 

r44 IFPEEKCIKS=JANDPEEK € 1K+-59THEN740 
730 POKET+29,114+P:MAITEF. FF:GETAS: J= 
PEEKC TIRO R=KEASCCASI +00: IFR-OCTHEN720 
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760 GOSUBS1O: 6OTOGSA 

3800 IFCH=9THENS30 

319 FORI=OTO2: 1FAS=MID%c"CHRSC910CHRS 
(937,141, 15THENC2=1 0 PRINT"ChomeJ 
Cabajol"TABC2Z9MM3 01): RETURN 

820 NEXT: ASASCCASA : IFAS3ZANDACI2THEN 
C1=A-33:PRINT"[homeJCabajoJ"TABC12) 
CSc21) RETURN 

330 FORI=1T108'IFAS<OMIDE("Cctrl 1ICctrl 
21lctrl 3llctrl 4JCotri S]Ucterl 6JCctri 
PiCctrl 81%, 1, 19THENNE=T 6070850 

340 OC=12%c 1-21) :PRINT"ChomeJ"THBC? 
MIDSCSTREC1), 27 RETURN 

859 FORI=1T08::IFASCOMIDS("LC 110 2] CL 
3J(c 4110 SITE 6110 7J0C 31",1,1+THEH 
NEXT: G0TO0350 

360 POKE9B2+PLCTO :POKESOS., PHU IO 
UCI) :POKESGS, Mv: POKESIOS, ADO IO: POKE 
305, Sc 1) 

370 PRINT"Chome1"TABC1SI9MIDECSTRECIA 
22 RETURN 

380 IFAS<O"[F17"ANDAS<O"LF3]"THENIG0 
898 YL=L-¿YL<1SANDAS="[F17"9+04L78 
ANDAS="[F31"):POKES+24, YL 

3900 PRINT"Chomel"TABCS79RIGHATEC"A 
MIDECSTRECYLI, 29,2) RETURN 

330 1FAs="[44]"THENP=1-P:POKE 1047, 13+ 
120%P:G0T01580 

3940 1FAS="CF67"THENMHN=1-14: POKE1049,22+ 
128MN:G60T01580 

3950 IFA+="[F37"THENLL=1-LL:POKE1951,16+ 
128%LL : RETURN 

3960 IFA+="[477"THENSL=1-SL :RH=-1:POKE 
1045. 19+128S5L :CH=1 :GOTO250 

970 IFAR<CO"1FSI"THENIO16 

320 POKE1D45,19:SL=5 

990 CH=1-CH:POKE1043, 3+1234C0H: IFCH=0 
THEMPRINT"C[homeJlabajol"Les:PRINTSPE: 
RETURH 


29 


La Fantástica 0.64 


1600 PRINT"ChomeJlabajol"SP+G" der.) 
[arribaJTIPO 

ACORDE : "CF(C19TABCZ3INMELCZ 
"INWERSION[ der. 1"LNS: RETURN 

1610 IFAs=" "THENGOSUB1SS0:RA=-1:POKE 
BF, 20: RETURN 

1020 IFA$=""THENGOSUEB1580:PRINT"Lclr3"; 
¿POKE725,45:END 

1038 IFAS$<>"[F2]"THENRETURN 

107 GOSUB1476:POKE214, 13:PRINT 

1686 PRINT"YOZ A DEFINIRSE (1-8)";:J=1: 
GOSUB1SO 

1090 IFINCIORIN>STHENGOSUE1474:GOTO 1400 
1100 I=IN*PRINTTABCSI) "ATT: "MIDECSTRE 
CINTCADCIO 167,2) 

1110 PRINTTAECS1> "DEC: "MIDECSTRECADCI) 
ANDIS2, 25 

1120 PRINTTABC31) "SUS: "MIDSCSTRECINTE 
3E(191677,2) 

1134 PRINTTABCS10 "REL: "MIDECSTRECSACIO 
ANDAS, 2) 

1140 PRINTTABCS1>"MWF: [ctrl 4I"MIDSC 
"SAMTRIPULNSE", SLOGCHYCI))ALOGC2I 11,3) 
"[ctrl 2] 

1150 IFWW(1I>=64THENPRINTTAECS1>"PLS: 
"MIDECSTRECPHCIORHE+PL (107,2) 

1180 POKE214,14:PRINT:PRINT"PROP. 
ATTACKCD-15";:J=2: GOSUE1SOD: IFER 
THEN107D 

1190 AD=IN:PRINT"PROP. RATE (M-15)";: 
GOSUE1S00: IFERTHEN197B0SUB15OD: IFER 
THEN1075 

1200 -AD=ADX160RIN:PRINT"MIVEL SUSTAIN 
(0-19)"5 :GOSUB1500: IFERTHEN1070HEN1070 
1210 SRSIN:PRINT"PROP. RATE (B-15)";: 
GOSUB1500: IFERTHEN10700: IFERTHEN1070 
1220 SR=SEX1SORIN:PRINT"Ectrl 4JS[ctr1 
2J1AW [ctrl 4] Tlctrl 2JRIANGLECctrl 4] 
Plctrl 2JULSELctrl 4] Nlctrl 2J0ISELctrl 
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21" 5:J=1 :GOSUB1S00 

1230 FORJ=1T04: IFIM$<2MIDEC"STPH", J,10 
THENNEWT:G0TO1970 

1240 WE=2 76 J+3): IFWF<764THEM126D 

1250 PRINT"PROP. RATE (0-4095)";:J=4: 
GOSUB1500:PU=IM: IFINCODR INSI THENIO7O 
1268 WWCI)=WF:PLO IO =PIU-HBAIMTCOPULHBO > 
PACO =INTCPUA HBO ¿ADC =AD: SALI =SA 

1270 GOSUB1474:5051B1414: 5070360 

1319 POKES+24,VL:PRINT"Chome1C3 abajol" 
TABC99" [ctri 9] [der.J] [der.1 ] [der.] 
[der.] [der.J ] C[der,] [der.J 1] [der,] 
[der.] [uer.1 " 

1320 PRINT"TECLADO — [ctrl 9] [ctrl 
Bl2lctrl 91 [ctrl Wl3lctrl 2] ] [ctrl 
BJ5[ctrl 31 [ctrl Blólctri 91 [ctrl 
BJ7[ctrl 9] 1 Clotrl GI3lctrl 2] [ctrl 
Blólctrl 2] ] [ctrl Bl-[ctrl 21 Ectrl 
Bl£[ctrl 9] 3" 

1330 PRINT" BAJO Estrada] 
Add dedos 

1340 PRINTTAB:199"Cetrl 2IQIMJEJRITIVIU 
I1101P114317 " 

1350 PRINTTAB:<112"Cabajol [ctrl 9] 
[der.] [der.] 1] [der.] [der.] [der.1 ] 
Uder.] [der.] [ctrl 41 " 

1360 PRINT"TECLADO Ceterl 9] [ctrl 
BIStctrl 9) [ctrl OJDlctrl 9] ] [ctrl 
Bl6tctrl 31 [ctrl BJHlctrl 91 [ctrl 
BlJtctrl 91 J [ctrl BlLlctrl 2] [ctrl 
Bl:Clctrl 9] [ctrl 01 " 

1370 PRINT" AGUDO DEA 90 IIA 
1111]C[ctr1 0] ” 

1386 PRINTTAB(12%"Lctrl 91214ICIY4IBIN7HM 
1,1.14Cctrl 41 " 

1416 POKE214,13:PRINT:PRINT"F1 -- [ctrl 
41MA5 ALTOCctrl 2] F2-- [ctrl 4JFORMA 
DE ONDACctrl 2] 

1420 PRINT"[abajolF3 -- [ctrl 4J1MAS 
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EAlOl ctrl 21 Fd -—— [ctel 
4JMANTENIDO ctrl 23 

14368 PRINT"LabajolFS -— [otr 
4IACORDESC ctrl 21 FE -- [oterl 41MULTI 
YOZletri 21 

1448 PRINT"CabajolF? -- [otel 410AIDA 
[ctrl oz ES == [ctrl 4JPOLIFONICO 
Tctel 21" RETURN 

14% POKESI4, 12 PRINTSFORI=11011:PRINT 
SEE: MEAT RETIRA 

1506 THé="":PRINTUP 0 

1516 PRINT"Cotel 9] [ctrl AJlizg.J%;: 
MATTER FF :GETRE: IFA" THEM1O2 

1320 ASASCCOARO IF AS1STHENPRIMT" 00 
THSYAL CINE ER=CIAORORINA SO ING 
RETURN 

1530 IFA=20AMDLEMNC INS THENPRINTO LE hi 
¿THESLEFTE (TIME, LENC IAS 10 

1548 IFCAAND1279<3SORLEN: 1Hg)= ITHEM1510 
1538 PRINTAS; + IMé=1H$+A% 60701514 

1300 FORI=4TO1e8STEFT:POKES+1, 0: MEAT: 
FORISOTOZZ: POKES+ 1.0: MEXT:RETURM 

1626 DATA.4,7,,3,8,,5, 2. "MAYOR ", 
A MERO 

15638 DATA, 3,6,.3,2,,8,5 "DISMINUIDO", 4 
¿20:4,8,,4,8, "AUMENTADO " 

1648 DATA.4.11,.4,11..4, 11, "MAYOR PO" 
100218,,3,10,.3,160. "MENOR FO" 

1630 DATA. 4,18,,4,10,,4, 18, "DOMIH 7H, 
478,4,7,9,4,7,5, "MAYOR ETA" 

1660 DATAS,7,9,3,7,8,3,7,2. "MENOR ETA", 
"RAIZ ". "PRIMER". SEGUNDO 

1690 DATA, 249, 16,,,,249,32,,,, 249,64, 
160,15,,249, 128,,,,248,16.,,204, 204, 16,0 
A DATA. 252,64, 200,,192,240,32,, 

736 DATRAD152,49294,120,16%,,141,61,3, 
e 
¿220,173 
1749 DATA1,220,157,143, 192,232.56, 
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42,176 

1750 DATA29.72,132.253.138.10.10,10.5. 
253.168, 185.73. 192, 238,61,3.172,61+3.133 
1760 DATAG1,3,104,192.3.,240,12,164,253, 
200, 192,8, 208.219,2 4,8, 205,209, 00 
1770 DATA96.,17,135,134,133,136,23.,13, 
20,6,69,83,90,52,65,87,51,890,84, 70.567,54 
1720 DATRAES.32.53,86,85, 12,066,536, 41, 
29,55, 78, 79,75, 77,48.74.73,37,44,04. 
55,46 

1790 DATA45,76,25,43.47,94,61,1,19. 3% 
42,92:3,81,2, 32:50, 4, 93,49 

1820 DATR49405, 45454, 169, 212,133, 232, 
ig 
169,8 

1830 DATA136,145,251,138,145.251,196, 
192,1,208,249,185.41,193,185.132,3. 
145,251 

1840 DATAZ32,224,6,208,243,96,2,3,,1,6,5 


. desea tener estos pfogramas o algunos de 
en cassette o disket puede solicitarlos a 
autores, al teléfono 


- 48-3103 
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SECRETARIA ELECTRONICA 

Cuando tenemos una computadora con la cual 
aPrender y divertirnos, tambien le buscamos una 
aPlicación en el hossr o la oficina. Este 
Prospama no solo nos Permite mantener archivos de 
inventario Y agenda telefonica. sino Jue se 
comporta realmente como una secretaria al 
Proceder a DISCAR el numero de la Persona 
elegida. 

Esta Posibilidad surse del fantastico circuito de 
sonido de la Commodore 564, Yue Produce los tonos 
exactos requeridos 

Cuando el Programa se corre con RUN, la Primera 
Pantalla Permite eledir entre 2 modos: A9enda 
telefonica o Inventario. En cualquiera de los 
modos aParece un menu de 2 oPciones Para el 
manejo de los datos en Pantalla y archivo. 

Cada opcion elegida es facil de seguir y se 
Permite Suardar los datos en cassette o diskette, 
Cada archivo abierto Puede manejar hasta 50 
registros de 5 camPos cada Uno. 

En el numero de opcion 3 se Usan los datos de 
modo diferente. Si se esta en modo Agenda 
Telefonica, la comPutadora Senerara loz tonos 
necesarios Para efectuar la llamada telefonica 
(telfonos digitales). Se Puede tambien rediscar y 
cronometrar el tiempo de la llamada. 

En el modo Inventario esa misma opcion 5 brinda 
un total de los valores. 

Ez Posible asimismo efectuar una salida Por 
impresora de los reSistros con la opcion 2. 
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100 REM Added 

118 REM 4 SECRETARIA ELECTRONICA + 

ZO FEA Ae a de 

179 DIMAS(S 60) 05030, CS), P1030 PAZ 
¿ES(2,9) 

180 5=54272:52=0 

190 PO=1 

E READ P1(10,P1C20 PIC P2C1o PZA 
203) 

210 FORI=1T05:READB+(1,1)'HEA4T 

220 FORI=1T05'READBS$42, 1):NEXT 

239 DATA 627,770,852,1210,1340, 1481 


249 DATA "NOMBRE — :","TELEFONO :%, 
"DIRECCION: ", "CIUDAD — :","PROVYINCIA :" 
250 DATA "ITEM :","YALOR:", "UBICACIÓN 


2 "FECHA COMPRA: ", "NRO. SERIE :" 

260 RF=2000:RF=(RF-30)/8: RH=INT(RF 48): 
RL=RF-S4RH 

270 FORR=STOS+24:POKE%, BD: NEXT 

280 POKES+23, 3: POKES+21,RH:POKES+Z24 RL 
299 PRINT"Ectrl 1J(clriC2 abajod": 
POKES3231,1 

a IAE Ia 
A" 

ANTAS os BR SECRETARIA ELECTRONI 
CA dk 

320 PRINTTAB0) "added dde 
decis abajol" 

340 PRINTTAB(2I"1. AGENDA TELEFONICA": 
PRINTTAE(2)"Labajol2. INVENTARIO" 

350 GOSIUB2530 

366 1Fk=42 THEHOF=1:G0TO394 

378 IFK=56 THENOP=2:50T0320 

380 PRINT"CORREGIR 1 0 2":60T0350 

396 H=0:G0TOSSa 

414 PRINT"[Z abajolENTRE":PRINT"Labajol 
Tder. JF PARA FINALIZAR" :PRINT" Eder. 10 
PARA RE-IHGRESAR":G1=1:62=2 

420 I=H+1 
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430 IF 1260 OR 1=60 THEN 460 

448 PRINT"[Z abajo] 4% ARCHIVO 
COMPLETO (H=554%%*[2 abajol" 

450 GOSUEZ320: RETURN 

460 PRINT" " 

418 PRINTESCOP. 10: Aéc1,10="" INPUT 
A2L1, 10 

430 1F A$C1,I3="F"ORASC1.Io="FIN" 
THEN1720 

4590 IF A$c1,15=""THEN4TO 

540 1F ASC1, 100 "R"THENSZO 

516 I=1-1:H=I-1:PRINT" 44 RE- INGRESE 
ULTIMO BLOQUE 44%": GOTO460 

320 FORZ=2 TO S 

530 PRINTESCOP. 20: A$CZ,109="": INPUT 
ASCZ, 0 NEX4TZ 

344 N=1:60T0410 

5590 SC=4:PRINT"[clrIC2 abajoJló der. 14% 
SECRETARIA ELECTRONICA 44" 

560 IFOP=2 THENSSA 

570 PRINTTAEC11 "AGENDA TELEFONICA": 
GOTOS90 

500 PRINTTABCIS)" INVENTARIO" 

590 PRIMNT" dd det dd dd 
AAA 

500 PRINT"APRIETE":PRIMT"1. AGREGAR 
DATOS" 

610 PRINT"Z. CAMBIAR DATOS":PRINT"S, 
MOSTRAR LISTA DE MOMBRES" 

620 FRINT"4, MOSTRAR DE UNO":PRIHNT"S, 
USAR DATOS" 

630 PRINT"S. GUARDAR ARCHIVO":PRINT"R. 
TRAER ARCHIYO" 

640 PRINT"S. LISTAR EN IMPRESORA": 
PRINT"S. FIN" 

659 GOSUEZS3A 

669 IF K<42 OR K957 THEM 358 

676 PRINT"[clr3" 
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680 ON (K-48)G05UE 780,730, 900,578, 1896 
, 1520, 1260, 2290, 2340 

658 GOTOSS8 

700 GOSUB416 

710 RETURN 

730 INPUT "NRO. DE REGISTRO";M$:IFMg="" 
THENME="1" 

740 PRINT"LZ abajolUSE":PRINT"Labajo] 
CURSOR PARA CAMBIOS":PRINT"Labajol /E/ 
PARA ELIMINAR El ITEM" 

750 PRINT"[abajo] < RETURN > SI NO 
REALIZA CAMBIOS":PRINT"C2 
abajo]":GOSUE1168 

769 Gl=1:1=15 

770 PRINTASC1,10;:Pg=""SINPUT Pg 

780 1F P3="" THEN 830 

790 1 P5O"/E/" THEN 620 

80 FORZ=1_TO S:ASCZ,M)="ULTIMO 
REGISTRO DEL ARCHIVO" NEXT 

818 G0SUB1728-N=H-1:RETURN 

520 ASC1,M)=P+:6: 

630 FOR 2=2 TOS PRINTAS(Z,M)7:P=r" 
INPUT Pg 

840 1F Pó="" THEN 660 

850 AFC(Z.M)=P+:62=62+1 

860 NEXTZ 

870 GOSUE 1048 

880 ON _T G0T0770,738,890 

890 RETURN 

900 1F 6200 THENGOSUB1720 

318 FORX%X=1 TON:M=35-LENCA$(2, Xx): 
Son 

920 PRINTTAB(4-LENCTSIIMX; "Liza"; TE; 
A$(1,%X)5TABC) ¡AGCZ 20) 

920 11=INTC%X/10): IFI1CXX/10THEN 958 
340 GOSUEZ520 

950 MEXTXN: GOSUB2528: RETURN 

970 MS="": INPUT"[2 abajoJWRO. DE 
REGISTRO"; Mé: 1FM$=""THENIOGO 
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380 GOSUB116A 

2999 PRINT"C[clri(3 abajoJ[3 der. ]” 
Dn FORI=1T0S:PRINT"[S der. J"ASC1.,11): 
E 

1619 50SUB1O4D 

1020 ONT 60T0990,970, 1039 

1030 RETURN 

1040 PRINT"[2 abajoJAPRIETElabajol": 
PRINT"A PARA UN REGISTRO ANTERIOR” 
1059 PRINT"[abajoJP PARA PROXIMO 
REGISTRO":PRINT"CabajolO PARA TRAER OTRO 
REGISTRO" : GOSUBZ520 

1060 T=3:IFK<563 THEM1090 

1070 T=1:IFM=1 THEN1140 

1089 M=1M-1 

19906 1F K030 THEN1120 

1199 T=1: IFM=NTHEN 1140 

1119 M=I+1 

1120 IF K<7r2 THEN 1149 

1130 T=2 

1140 RETURN 

1169 IF ABS(ASCIME)-53274 THEN 1200 
1170 M=WALLMS7:1F M<H OR M=H THEN 1190 
1159 M=N 

1199 RETURN 

1200 FORI=1 TO N:M=1 

1210 1F LENCMS)>LENCASC1, I0>THEN 1230 
nero IF Mé=LEFTSCAFC1, 1). LENCME> THEN 
1 

1239 NEXxTI 

1240 RETURN 

1260 PRINT"ENTRE 1. CASSETTE" 

1279 PRINT" 2. DISKETTE" 

1230 IMPUT "[2 abajoJOPCION";AS 

1290 IFAS<1 OR AS7>2 THEN1260 

1300 1F A3=2 THENAS=2:55=3:50T01320 
1319 AS=9:55=1 

1320 H$=CHR+$(13): INPUT"NOMBRE DEL 
ARCHIVO Ns 
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1330 1F AS<>2 THEN 1370 

1346 REM 

1350 DPENZ,35, AS. "DB: "+Ng+", 5, R" 

1365 G0T01330 

1378 OPENZ. 55, AS, NE 

1280 IMPUTRZ,0.,NT,F$,D% 

1399 IF 0=0F THEN 1460 

1400 IF O=2 THEN 1420 

1410 PRINT"CabaJoJARCHIVO TELEFONICO": 
G0TO01430 

1426 PRINT"CabajoJARCHIYO DE INVENTARIO" 
1430 PRINT"PROCEDE m97Y 

1446 GOSUE2330:1F K=18 THEM RETURN 
1450 1F K<583 THEN 1448 

1469 0P=0:H=HT 

1478 PRINT"ANTERIOR ACTUALIZACION: "¿Dg 
14200 : TOS 

14590 EXT J:MEXTI 
1500 RETURN 

1528 1F 62<0 THEN GOSUB1FZO 

1590 PRINT"ENTRE 1. CASSETTE" 

1545 PRINT" 2. DISKETTE" 

1556 INPUT "[2 abajoJSU ELECCION"; AS 
1560 IF AS<1 OR AS>2 THEM 1538, 
1570 IF As=2 THEN AS=2:55=8:G0T015398 
1536 AS=1:55=1 

1590 H+=CHRE(13): INPUT"NOMBRE DEL 
ARCHIVO"; NS 

1600 INPUT "FECHA. ";D+ 

1610 IF AS<22 THEM 1658 

1620 REM 

1630 OPENZ,SS/AS., "Bi "+NE+",S 1" 

1640 GOTO 1660 

1650 OPEN 2,55, AS, NS 

1660 PRINTRZ,DOP;H3 HN; H$;54:H$;D4H3 
1670 FOR I=1 TO N:FOR%=1 TOS: IF 
ASC, 1)=""" THEN ASC, Io=" " 

1680 PRINTRZ, ASC) 10 H$:NEXT A:0HEXT 1 
1695 PRINTRZ, ;*CLOSE2 
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1706 61=9 :RETURH 

1729 PRIMNT"ORDENAMIENTO SEGUN QUE 
Capo?" á 

1736 FOR 2=1 TO S:PRINTZ",. "iB3(DP,20: 
NEXT Z 

1740 INFUT F 

1750 IF F<1 OR F3S THEM 1720 

1760 62=0 

1770 PRIMNT"[3 abajo Jade ORDEMANDO 
DATOS RARO abajod" 

bil FOR 1=1 TO N-1:FOR J=H TO 1+1 STEP 
1790 1F ASF, I9<ASCF,J) DR ASCF, 12= 
AFC, JO THEM 1810 

1200 GOSUB1SC0 

1810 NEXT J 

1320 IF ASF. IO <OASCF, 1+10 THEM 1348 
18230 I=1+1 

1240 MET I 

1259 RETURN 

1360 FOR 2=1 TO S:DF(Z20=A8(2, 15 
AFCZ. DO =ABLZ JO 

1870 ASCZ, J)=0$(Z) NEXT Z:RETURN 

1320 1F BP=1 THEM 1564 

1900 5118 

1910 FOR I=1 TON:SM=SM+YALLARCZ, 100 
HMEATI 

1920 PRINT"[2 abajoJ[4 der. JCOSTO TOTAL 
DE TODOS LOS ITEMS":PRINT TABX149"C2 
abajol";5m 

1936 BOSUB 2524: RETURN 

1950 GOSUB 970: IF M3="" THEN 2100 

1970 PRINT"[clr1l2 abajoJll2 derl" 

1989 T5=A$02,M0:L=LEN¿TE) 

1996 FOR I=1 TO S:PRINT"[2 derJ"; 

ASCII MO MEXT:PRINT"CZ abajoJl15 der. 1%; 
2000 1F L<10 THEN 2426 

2619 LsL+1:T$="1"+T% 

2628 FORJ=1 TO L:PE=MIDECTEJ.15 
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2039 PRINTPE;*1F ASCCPEICAS OR ASIA RO 
57 THEN 2098 

2040 T="ALCPG 0 IF T<0 THEM 2060 

20598 F2=941:F1=1336: 0050UB2410:500T02030 
2060 I=INT<CT-1)439+10 1J=T-3%( 1-15 
2078 Fi=P1c015:F2=P2C1J G0SUB2419 
2090 FORX=1T0 230'NEXT 

2090 MEXTJ 

2190 PRINT"[2 abajol“:PRINT"Eder. 1 
AFRIETE":PRINT"Cabajol" 

2110 PRINT"Coer.1R PARA RE-DISCAR": 
PRINT" E PARA CROMOMETRAR" 

2120 

2130 

2140 

2150 1964 

2160 067 THENZ13B 

2170 GOSUEZ360'GOSUBZ 

2150 RETURN 

2200 Tlg="DOBara" 

2210 FORI=1 TO 6:Cécl2=MIDS(TIS, 1.10: 
MEXT 

2220 PRINT"[homeJC22 abajoll16 der. 1%; 
2238 PRINTCSCLO LEC RO CEA 
Mo CEC CEC) 

224% FOR I=1 TO 2350:NEXT 

2250 I=PEEKC(1977:TF I=64 THEM 22189 
2260 IF I=17 THEH1970 

2278 RETURH 

2290 OFENSA, 4 

2300 FORI=1 TON:FORJ=1 TOS 

2310 PRINTR4, AFC, 10 HEAT 

2328 PRINTRS," "PRINTER," "o HEXT 
2330 PRINTHA, ; CLOSES RETURN 

2348 PRINT"[clril2 abajollder. JDESEH 
TERMIMAR EL PROGRAMA Y FERDER" 

23599 PRINT"[der. JTODA LA INFORMACIÓN EN 
MEMORIA?" 

2366 PRINT"Eder.Jlabajol £ 
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2370 GOSUB2530 

2380 1F K=78 THEN710 

2390 IF KX>33 THENRETURN 

2400 END 

2410 FISINTCF14,M6097):H1=INT(FDA256)* 
LisFD-(256%H1> 

2420 FI=SINT(F2". 06097) :H2=INT(FD/256): 
L2=FD-(2564H2) 

2430 POKES+5.6:POKE 5+12,0 

2445 POKES+6, 224: POKES+13, 240 

2455 POKE S+24,31 

2460 POKES+1,H1:POKES.,L1 

2470 POKES+8,H2:POKES+7.+L2 

2480 POKES+4,33:POKES+11.,33 

2490 FORZ4=1 TO 100:NEXT 

2500 POKE S+4,32:POKES+11,32 

2510 POKES+24,0:RETURN 

2520 PRINT"[abajoll4 der. JTOQUE UNA 
TECLA PARA CONTINUAR" 

25390 GET K$:IF K$(0"" THEN 2530 
2340 GET K$:IF K3="" THEN 25340 

2550 K=ASCCK$): RETURN 

2560 PRINT"[4 arribaJ";:FORI=1T0 2: 
PRINT"[34 esPacios]":NEXT:RETURN 
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Estadistica en Ayuda del Azar 


ICACION A LA QUINIELA 

siguiente es un Programa de aplicación, 
diante el mismo tratamos de determinar. 
andonos en los resultados obtenidos en cada 
so, los nimeros con mayores Posibilidades de 
ir sorteados. Partimos de la Premisa de ue 
mito mayor es la demora, mayor es la 

abilidad de due sal9a sorteado. 


Forazones de importancia consideramos Para el 
lo sólo los Primeros cinco numeros de cada 
o. teniendo en cuenta Jue influsen Factores 
como la capacidad de la maquina Y la 
idad de ejecución. 


s tener Presente Yue loz datos deben ser 
malizados, Para ello debemos a9resar cada 

so =n forma de DATA al final del Prosrama. 
rimer numero del DATA corresponde al Primer 
io, recordar ademas due el ultimo DATA debe 
siempre F.I,¿H HL. 


Prosrama Presenta un menh con des crciones, la 
mera DEMORAS ALA CABEZA Y A LOS CINCO : 
cula cuantos sorteos llevan sin aParecer los 
eros del AM al 2 en la unidad. decena 3 
Eña. 
segunda opción PROPUESTAS: — realiza una 
Pretación de las demoras y con los números 
itos compone un número ProPueszta con aguda 
comando RHD. 


e Programa utiliza como datos los sorteos de 
E RUINIELA HACIONAL. el último sorteo incluido 


ans 


<ponde al dia martes 4 de Junio de 199%. 
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1 REM dd 
2 REMX ESTADISTICA DE QUINIELA * 
A ia 
4 DIM UNIC100>,DECC100),CENC10B), 
USCOODS, DE(90O), ESTFCIAD) 

S READ ESTS(EE>: IF ESTECEE><O"F" THEM 
EE=EE+1:G0T0 5 

6 RESTORE 

Y PRINT"[clrllctrl 3][4 abajo] pe) 
CABEZA Y UNA CIFRAS A LOS 5" 

3 PRINT"[S abajo) 25 APUESTA 
PROPUESTA" 

15 INPUT "[4 abajo) INGRESE 
ELECCION";A: ON A GOTO 49,48,600, 900 
48 IF SE=1 AND A=2 THEN 334 

49 SE=1 

59 PRINT"[clr1":PRINT" ESTADISTICA 
[ctrl 4IQUINIELERAC ctrl 21":PRINT"CZ 
abajollctrl 6JCALCULANDO. ..[ctrl 23" 
60 READ A$,B$,C$,D$,ES 

TO SUMS=A$+ES$+C+$+D$+ES 

30 IFSUMS="FIMAL" THEN 104 

B2 UNIS=MIDECAS, 3,1): DECE=MIDECAF, 2,1) 
CENS=MIDSCAS, 1,15 

25 MUNSWALCUNIS) :NDE=YALCDECS) :NCE= 
WALCCENTO 

90 FOR N=0 TO 9 :UNICN)=UNICNI+1 
DECCNI=DEC CNO +1 E CENCM)=CENCNO+1 NEXT MN 
109 UNI CNUN)=0: DECONDE>=9: CENCNCE)=0 
103 GOTO 66 

104 1F A=2 THEN 394 

1035 FORI=9T09:UNIS$(1I>=STRECUNICIOO 

106 DECSCI>=STRECIDECCIOO CENSCIO= 
STRS(CENCI2) ¿NEXT 1:GOTO 394 

196 PRINT"Eclrllectrl 2) === 


=-- Letrl 4] " 

192 PRINT"Ectrl 2J-- ALA CABEZA -- 
[ctrl 4] - A LOS CINCO -" 

204 PRINT"[ctrl 2] CEN DEC UNI 
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[ctrl 43 DEC UNI “:PRINT 

205 FOR I=6 TO 9:UCCIo=INTCUCCIIAS): 
DCC19=INTCDCCLII5) 

210 PRINT"Ectrl 61"51;"[ctrl 21-"; 
TABS) ;CENSCIA¡TABCIO ""DECECIO; 
TABC16)5"-"UNISCIOS 

215 PRINT TAEC24);"Ectrl 61"51;"Cctr1 
27") TABC23)5D0C125TABC34) 5" "UECTO NEXT 
300 PRINT:PRINT: PRINT"[ctrl SITOQUE € 
TECLA PARA CONTINUAR" 

302 GET UE: IF MEC>"C"THEN 302 

365 GOTO € 

394 FOR 1l=6 TO 9 

395 FOR FF=EE-1T0 B STER -1:UScFR)= 
MIDS(ESTHCFF>, 3,1) : 

396 IF VALCUSCFF>IC71L THEN UCCIIO= 
LICCIID+ 1: NEXT FF 

397 WEXTII 

400 FOR II=5 TO 9 

405 FOR FF=EE-1T0 BD STEP -1:D3CFF>= 
MIDECESTHCFF), 2,1) 

410 1F VALCDICFF2<711 THEN DECIS 
DCC11>+1 3 NEXT FF 

420 NEXTIL:IF A=l THEN GOTO 190 

440 FOR I=6 TO 9:UCCIO=INT(UCCIIID) 
DCC1)=INTCDCCIO 5) NEXT 

445 UMAX=UNICB): DMAX=DECCB) :CMAX= 
CENCB) ¿MAXUC=UCCO) :MXDC=DCCO> 

456 FOR I=1 T0 9 

460 IF UCCI)DUCCMARUC) THEN MAXUIC=I 

465 1F DCCI)PDC(MADO) THEN MXDC=1 

478 IF UNICIODUMAX THEN UMPIX=UNICI):U=I 
475 1F DECCIOODMAX THEN DMAX=DECC1):D=1 
488 IF CENCIDOCMAX THEN CMAX=CENC1):C=1 
485 NEXT 

490 PRINT"Cclrllabajol [ctrl 6] 
PROPUESTAS A LA CABEZA [ctrl 41" 

495 PRINT"LZ abajolWNIDAD "sU;:Ul$= 
STRSCINTURNDO=TLJ43+1)):U25=STR$ CINTA 
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RNDID 749410) 

496 PRINT" " U1S+U2ZE+STRECU) 

509 PRINT"CabajoJDECENA ";D;:D1$=STR$<C 
A E 
5 

302 PRINT" "¿D19+3TR$(D>+D25 
3505 PRINT"CabajolCENTENA";C;:C1é=3TREC 
O Ea A 
+ 

507 PRINT" "¿STR$CCI+C1$+023 
IA abajo] FAYWORITOS A LOS 
319 PRINT"CabajoJUNIDAD  ";MAXUC 

315 PRINT"CabajolDECENA — "¿MXDC 

520 PRINT"[2 abajollctrl 8]  FAYORITOS 

DO3 CIFRA A LA CABEZA [ctrl 47" 

323 CUF=STRECMARUCO : COFSSTRECMXDO> 

530 PRINT"[2 abajo] "¿STRS 
£D2+CUS;" "COS+STRECUO 

335 PRINT"[abajol [ctrl 1JENTRE M PARA 
MENU T PARA TERMINAR" 

549 INPUT M3: 1F Ms="4" THEM 5 

343 IF 11$<>"T" THEN 540 

550 END 

1300 DATA 606.591,124,350,410 

1305 DATA 336,615, 304.695.049 

1310 DATA 506,363,542, 501,363 

1515 DATA 073,632. 195,8321,837 

1320 DATA 403,782,055,780.747 

1325 DATA 172,490, 189,5297,485 

1830 DATA 262,849.,382.171,813 

1335 DATA 586,900,388,886,867 

1348 DATA 419,581,191,273,469 

1343 DATA 046,516,560, 142,526 

1350 DATA 581,266,264,664, 160 

1355 DATA 795,595,877,325.679 

1360 DATA 317,424,149,232,025 

1365 DATA 504,445. 333.997.646 

1370 DATA 605,687, 188,104, 496 
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509, 133.131.423, 476 
171,113,391.2906,137 
474,544.,501.479,601 
437,070,442,445,561 
976,5625,843,218,512 
544,456, 050, 063,344 
323. 490,836., 596, 182 
673,400,336.586.182 
300, 494, 2939.,446, 492 
352,935, 162,130,62 
174,431,524,135,125 
286,214,476.531.,333 
929,251,2292,200, 142 
292,903,573.516,399 
304. 717,111,708.017 
453,812,369,193,294 
433,530,512,450,742 
334,618,437, 266,085 
511,545,321.866,234 
134,312,963.874,1€3 
123,336:438,629, 454 
127,693,672,397,842 
931,979,074.410,326 
576,929.,425,858,111 
282.6711,915,971.014 
636,219,728,936,222 
963,608,5848.278,615 
200,509,042,032, 265 
542,915,638,230,786 
312,1895,119,794,132 
423,423.528,200,169 
603. 656:549, 783,351 
687 ,274,111,607,332 
731,248,067 , 448,636 
669,157.,792,013,826 
352,461,150,802,1069 
856,B14,363,08399, 699 
151,250,417,619,710 
992,243.714.048,662 
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DATA 
DATA 
DATA 
DATA 
DATA 


DATA. 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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323,702,279,243,708 
156,685,687,503,816 
073,309,961,491,153 
311,456,900.894,259 
113,482,332, 783,205 
692,493, 797,264, 1965 
312,531,934,706,327 
294,640,022,471,238 
506,826,877,447.482 
155,666, 262,932, 253 
431,343, 246,302, 216 
439,3933,675,274, 53D 
043, 239,466. 216,495 
959,770,660,3934,179 
035,511.149,406, 439 
072,314,691,425,7983 
198,735,922.525,887 
502,655, 630, 162,656 
463,594,415,230,515 
370,845,247,820, 656 
505,070,874,376,434 
377,313,837.,562,725 
323,470,8346. 758,907 
377,653,436,815,684 
299,3399,793,255, 160 
997, 789,902,049,3183 
105,688, 137,5608,540 
194,414,591,547, 565 
3979,957,101,601,818 
412,699,349,101,895 
320,974,863.743,771 
239,663, 197,126,137 
236,808,666,716,424 
749,492,673,561,435 
742,838.247,807,627 
618,247,334.573,431 
204,145,971.306,242 
136,537. 534, 302,399 
482,420, 288,007, 172 
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DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
3 DATA 
3 DATA 
53 DATA 


DATA 


DATA 
DATA 
DATA 


3 DATA 


DATA 


2400 DATA 


DATA 


A DATA 
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3822,159,134,393, 387 
072,250, 706,795,381 
454,631, 162,929, 530 
399, 177,320,369,452 
a17,109,3951.720. 559 
3926,631.526, 974,337 
873,364, 139,042,530 
500,369, 267,668, 886 
133, 334,218, 426,894 
318,940,669, 305,390 
438,399, 292, 284.697 
342,709.4/12, 351,463 
064,060, 131,473,972 
120,465,634, 245,447 
394,537, 104.209.574 
663, 066,093, 298,355 
132,983.23, 804, 
202,504, 367.317.253 
B14, 4rros18,7 3, 


524, 538. B67.043, 325 
309, 431.512,402,254 
143,590,225, 452,141 
347,893. 742,621,043 
dd Ml ica 


DATA Ze 


DATA 
DATA + 
DATA 
DATA 
DATA 
DATA 


3 DATA 


DATA 7 
DATA 


033 0332. 545, 30B, ar 
283,511, 601, 437,045 
EA os 


ali 
27a 


ez 
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2465 
247b 
2475 
2458 
2485 
2495 
24395 
2500 
2505 
2510 
2515 
4009 


Si Ud. desea tener estos programas o 


DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
DATA 
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351, 182,430,961,541 
411,053. 34,267,712 
693,223, 361,814,325 
079, 134,739.755, 516 
473,293, 328,553, 522 
238,876,319,414,397 
473,184,768, 733,131 
177,925, 902,643, 128 
378,3814,855.673, 446 
391,911,354,030,718 
873,820, 145,334, 604 


FsT ¿Ho HL 


algunos de. 


ellos en cassette o disket, puede solicitarlos a 


sus autores, al teléfono 


48-3103 
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DESPROTECCION DE CARTRIDGES 
AAA 

Muchos cartridoes Pueden ser facilmente 
desprotegidos y coPiados a disco o cassette. 

Solo será necesario agregar a la computadora una 
llave doble inversora fewitch) de mus bajo costo. 


Antes de comenzar es importante tener en cuenta 
que se debe Proceder cuidadosamente Ya Jue Se 
Puede afectar el cartridoe a la computadora si se 
lo inserta cuando esta se encuentra encendida. 

Si bien la instalación del switch es sencilla, es 
aconsejable 4ue lo realice una Persona Con 
ciertos conocimientos en electronica 0 Un 
tecnico. 

El switch sera colocado en la Parte Posterior 
derecha de la computadora, cerca del cartridae 
Port. 


Fasoz iniciales: 

1- ComPrar una llave doble inversora (switch. 

2- Desconectar todos loz cables Yue van a la 
computadora. Abra la comPutadora . sacando los 
tornillos en la Parte inferior y localice el 
cartridae Port. 

3- Encuentre un espacio libre a la derecha del 
cartridge Port y cuidadosamente  efectue un 
agujerito con un taladro u otra herramienta ue 
nos Permitira instalar el suitch. Tenga sumo 
cuidado con los cablez. 

4- Los Pins estan numerados desde €l centro de la 
computadora hacia la derecha. Será necesario 
localizar los Pins 2.2 y € de la fila suPerior; 
no sera necesario modificar los Pins de la fila 
inferior, 

S- Los Pins 2 y 3 tienen 5 Voltios. Ambos Pins 
estan conectados 34l mismo lusar del circuito 
impreso. Ud, debera cortar ambos Pins (2 y 39 

Suelde la mitad inferior “lado del circuito 
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imPreso) de los Pins 2 y 3 Juntos. Luego suelde 
la mitad suPerior (lado del conector) de loz Pins 
2 y 3 juntos. 

6- Instale cables en un lado del switch 
Provenientes de la mitad suPerior de los Pins 2 y 
3 y del otro lado del switch los que vienen de la 
Parte inferior, 

?- Desconecte el Pin 3 de la fila suPerior del 
conector; instale cables desde el switch con las 
mitades suPerior e inferior del Pin 8, 

3- "Verifique Jue una Posicion del 3Wwitch 
conectara los Pins 2 y 3; la otra conecta al Pin 
2. Instale el switch y cierre la computadora. 

9- Conecte todos los cables y a Trabajar. 


Los Pins 2 Y 3 contienen 3 Volts y el pin 8 se 
denomina GAME Line del cartridae. Estos tres Pins 
deben estar desconectados Para Permitir Jue el 
cartridae ses insertado sin que este tome control 
de la computadora cuando sea encendida. 


Pasos a seguir: 

AAA 

(1 Con la computadora y el switch APagados 
inserte el cartridge y luedo encienda la 
computadora. 

(B) Ud. vera 30719 BASIC BYTES FREE, el cartridae 
no tomo control de la computadora Pero  ¿u 
Presencia ha sido detectada. 

(0) Carsue un Pro3rama monitor Assembler (ML) en 
+C00B . 

(D5 Encienda el suitch. 

(E) El monitor de ML debe aun controlar la 
comPutadora. Si en la Pantalla sucede 3130 
anormal, Por ejemplo Jue aParezcan caracteres 
raros, entonces no sera Posible coPiar el 
cartridae en forma simple, 

(Fi Utilice el comando Model monitor Para 
examinar la memoria comenzando en $£8000, 
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G> Si el cartridae es un "auto start" Ud. 
neontrara al90 similar a: 


¿2000 99 80 70 298 C3 C2 CD 35 
.2008 30 


£ 
e 


Los Primeros dos bytes contienen los vectores de 
la dirección del cold-start del cartridoe ($8009 
en el ejemplo). Los  siduientes dos bytes 
contienen los warm-=start wectors del  cartridge 
($9079 en el ejemplos. Los siguientes tres bytes 
son las letra CEM. Los ultimos dos bytes deben 
ser 38 en hexadecimal. 

Cuando se encienda la computadora esta examinara 
si estos nueve bytes estan Ubicados en $3009. Si 
ez asi la computadora Pasa El control al 
cartridaes. 


El cold-start vector es utilizado cuando se 
enciende la computadora y el warmstark vector es 
utilizado Por la tecla RESTORE. 

Estos vectores indican la direccion adecuada Para 
cada cartridee en Particular Y Pueden No ser los 
del ejemplo. Lo We es importante es el CBM30. La 
comPutadora debe ver estos cinco bytes. Si el 
cartridoe es auto-start no importa si esta 
Presente o no (fisicamente). Si estos cinco butes 
estan cuando la computadora es reseteada (ver 
RESET en seccion miscelaneas) o cuando la tecla 
RESTORE es Presionada, el control Pasara a los 
vectores. Este es el motivo Por el cual los 
Programas en cartridge “ue han sido Pasados a 
disco o cassette correran cuando la comPutacdora 
sea reseteada (343 64738). CBMSB actuara desde el 
RAN 0 ROM en forma identica. 


Encendiendo la computadora con el switch aPagado 
evitaremos ue la comPutadora — reconozca la 
informacion contenida en el cartridae. 
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La computadora sabra 4ue hay also en la ubicacion 
de la memoria del cartridge Pero no Podra leer la 
informacion e indicara 30719 BYTES FREE. 

Los cartridae normalmente ocupan la memoria $8000 
a $9FFF (cartridoe de 8K). Guardar la informacion 
del cartridoe a disco o cassette es muy simPle. 


(H2 Utilice el comando S (SAYE> del monitor ML 
Para suardar la memoria. 


S 2000 ABBA"nombre" AS (Dl cassette) 


$2000 es la direccion inicial del cartridoe, 
$A000 es la direccion final mas uno del bloque de 
memoria 23 ser coPiado. Siempre a9resar un byte de 
informacion, va Yue en Seneral loz monitores no 
copian el ultimo bute. 


La computadora Puede ser ahora 3P3' w el 
cartridg9e sacado. El Pro9rama Puede ser cargado 
desde el disco o cassette. Utilice 8,1 (disco) o 
1,1 (cassette) Para que la informacion sea 
cargada en la direccion de memoria 
correspondiente, 

Trate Presionando la tecla RESTORE; si. el 
Programa no emPieza a ejecutarse utilice $75 
64738. Normalmente esto correra el Programa. 
Ocasionalmente alsunos Pro9ramas no funcionaran. 
Sucede que algunos  cartridoe tienen una 
Proteccion en lenguaje de maduina. 


Los Prosramas de cartridge estan contenidas en 
chips RÓM, Esto significa que la informacion 
contenida en el chiP Puede ser solo leida. 
Hinsuna informacion Puede ser escrita, 

La memoria ROM (Read Only Memorw) Puede ser 
considerada como memoria Permanente Y no Puede 
ser modificada de ninguna manera. 

Lo que 'alsunos cartridoes intentan hacer es 
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modificar su Proria memoria cuando el Programa es 
ejecutado. Como el Programa esta contenido en ROM 
la memoria no Podra ser alterada Por lo Jue el 
Programa es ejecutado sin Problemas. Pero cuando 
el Programa ha sido copiado en disco o cassette y 
lueso cargado en la computadora , el Programa 
reside ahora en memoria RAM. Los  Prosramas 
residentes en RAM Pueden ser modificados en 
cualquier momento, Ahora cuando el Prosrama ses 
ejecutado Podra alterarse a si mismo, 

Para Poder encontrar la Proteccion del cartridoe 
sera necesario cargar y esecutar el monitor ML. 


1) Cargue el monitor. 

27 Caras el Prosrama desde el disco o cassette. 
3) Cambie CEMBB a CEMOG, Esto evitará que el 
Programa se ejecute accidentalmente, Recuerde 
cambiarlo nuevamente  amtes de Guardar el 
Programa. 

43 Transfiera el blode de memoria +3000-2AD0B a 
$4000. 


T 8006 ABOB 4006 


Esto le Permitira tener un area en la memoria con 
la cual comparar el Prosrama orisinal. 

5) Encuentre los vectores cold y warm-etart del 
cartridge. Utilice el comando G Para ejecutar el 
cartridoe. Intente con los vectores cold-start 
Primero. Puede ser necesario intentar con los 
cold-start vectors desPues de recargar el 
PrOGrama. 


G 8009 en el ejemplo Precedente 
6) Despues due el Programa se detenga o bloquee, 


resetear la comPutadora. Utilice S12 49152 Para 
correr nuevamente el monitor ML. 
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7) Utilice el comando C (COMPARE) Para hallar las 

memorias Yue fueron alteradas con la ejecucion 

del Programa. «Ud. va transfirió el Programa 34000 

en el Punto cuatro. En General la Protección 

pop iticapa solo unos Pocos bytes de memoria o un 
DE. 


LC 2000 AGUA 4009 


8) Copie las direcciones de memoria Jue hayan 
sido modificadas. Si ha sido modificado un bloque 
copie el area en general, Esto nos dara un area 
donde comenzar a investigar, 


Si solo uno o dos bytes en memoria han sido 
modificados, el Programa Probablemente realizara 
al9o similar al siguiente ejemplo. 3i la memoria 
alterada fuera 33400 y zu valor fue cambiado a 
cero (00) Ud, encontraria el codigo: 


2940 AS 00 LDA 4s00 
42042 3D 00 94 STA +3409 


El Programa en ROM ono será afectado Por esto Ya 
Ave no Puede ser sobre escrito, Pero como estamos 
en RAN 32040 sera afectado. 

Para encontrar el codigo Ud. Puede utilizar el 
comando D CDISASSEMBLER) e investigar el Programa 
linea Por linea. Cada vez 4ue observe que el 
Programa no card nada como en 33042 seguramente 
es Parte del esduema de Proteccion, 


En nuestro ejemplo, Para Prevenir la modificación 
de +3490 seri necesario cambiar el codigo desde 
$0042 hasta 38043 a MOF CNO OPERATION) comando 
que no hace nada. Entonces Ya no será modificado 
$3400 y el Prosrama funcionara normalmente. 

Algunos Programas utilizaran este metodo de 
alteración en distintos Puntos; hay que 
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buscarlos; no es dificil. solo lleva un Poco de 
tiempo, 


¿2000 09 30 ORA +$30 


¿2002 D4 277 
2003 50 Z07 
.2004 13 207 
«2003 C2 272 


.5906 CD 28 30 CMP $3038 
.2009 AS 00 LDA 4300 
«200B 3D 46 30 STA +$3009 
+. CODE AS 20 LDA +$20 
.2019 3D 40 84 STA +$3400 
¿2412 A9 69 LDA +$60 
.3015 3D 09 90 STA +9000 
.2018 A9 ya LIA +$00 
¿2618 30 00 94 STA +$5400 
.201D 35D 60 95 STA +9590 
.2020 5D 20 35 STA +$29520 
.2023 3D FF 30 STA $230FF 
. 2026 AS F? LDA +$3F? 
.2023 A2 1F LDX +$1F 
.202A AG 90 LDY 4590 
. 3020 3C BE DC 5TY +$DCOE 
.902F 30 AS BB S5TY $009 


El Prosrama Precedente cambia distintas RAM 
directamente. Este metodo se denomina 
direccionamiento directo (DIRECT Addressin9) 0) 
direccionamiento absoluto (ABSOLUTE Addressing). 
Los valores en las memorias Pueden ser tambien 
cambiados mediante 1) direccionamiento indexado 
CINDEXED — Addressing), 2) — INDIRECT  INDEXED 
Addressin3 o 3 INDEXED INDIRECT Addressina. 


.2079 A9 au LDA 4300 
«2072 AB 19 LDY *510 
«2074 399 40 31 STA 28149,Y £ STA $8140+% 
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TH ¿Mi cg110 
40 81 STA $2140,v / STA 2E1404Y 
+2 LDA 4342 é£ comienzo Prog, 


SO 
o 
p0-) 
DO 
Aro do 


quo 


Este es un ejemplo de INDEXED addressino. Es mur 
facil de entender, va que lo que ha, ES sumar el 
valor de Y al valor de la direccion de memoria 
obteniendo asi la nueva direccion. El valor de Y 
Puede ser cualquier valor entre Bb y FF, Lodi Y =] 
que la nueva dirección estará dentro de los 255 
bytes a Partir de $8140 en el ejemplo, 

INDEXED addressing es tan facil de "arreglar" 
como DIRECT addressing, Cambie los bytes $274 
hasta $807€ Por MOP, tambien desde $0072 hasta 
$E0TA. 2 

La dirección Puede ser indexada con X o Y, 


Veamos ahora INDIRECT INDEXED addressing. Este 
tiño de indexación utiliza solo el registro Y y 
es bastante comun.  INDIRECT INDEXMED addressingo 
Puede ser usado Para cambiar algunos bytes 0 un 
bloque de memoria, 


1) LIA $$06  / comienza en $8200 
«2082 STA 358 —/ bajo byte 00 

2084 LIA 4082 

2036 STA $E9  / alto byte 82 

6088 LD” 4s00 

.203A LIA R$FF 

+. EB2C STA CEBB)," / STA en $8200+Y 

-. BDSE TH ¿mp1 . 

-208F ENE $808 2 1F "290 THEN $8080 
5091 LIA $$00 —— / comienza Pro, 


INDIRECT INDEXED addressino utiliza la Página 
cero (zero Pages Para Guardar la verdadera 
dirección como ln vector. La dirección debe ser 
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duardada en el formato desolosado en bajo byte 
(low byte? y alto byte “high byte) que es el 
utilizado Por el microrrocesador 6510, 


Cuando la computadora edecuta un STA. (FB2).%" 
avarda el contenido del acu lacior en la 
dirección contenida en ¿BB uv ¿B% mas “Y, El 
Prosrama Ma Buardado la direccion $3200 en SES y 
$3: Y inicialmente Por lo que la 
computadora Primero El elo contenido del 
acia, Lacior ESTA) En a, Lueso Y" es 
incrementada; cuando Y sea distinta de cero el 
Programa se dirisira a la dirección ¿28050 y 
realizara la oPeración nuevamente. Esta vez Y 
va l, Por lo Yue la mueva dirección donde 
Pondremos el contenido del acumulador: (STR) sera 
$30201. Esto contimmaríi hasta ue 'Yoalcance el 
valor FF (250. Cuando incremen SFF en unos» 

mewamembe $00; la sentencia 
o Por lo 4ue 


17 a siBuiente instrucción. 
Como resultado de toda esta rutina la memoria 
desde $8290 2 $82FF ha sido llenada con 08. 


Si Dd. encuentra Yue su Programa tiene una rutina 
de Proteccion similar a la descriPta, hay varias 
maneras de Prevenir que el Programa 32 
auto-borre: 


(as Cambiando el alto byte en $E9 de $382 Por $20 
Co cualquier otro valor), fuera del area de 
memoria del cartridoe, 


(b) Sería cambiar los Primeros tres bytes de la 
rutina Por un comando JMP. C¿JUMP) 3ue salte la 
rutina de Protección: 


2036 42 91 20 JMP $8091 
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(co Un tercer metodo seria cambiar los codigos de 
$808 y $208D Por NOP=: 


.B03A AS FF LDA +$FF 


.203C EA HOP 
.203D EA HOP 
.B02E C3 IN? 


Cualduiera de estos metodos hara el trabajo 
correctamente. Elija uno y vea si existe un 
código similar en el Programa en el que Ud. esta 
trabajando, xa 

Recuerde que no afectará en nada a la comPutadora 
si Ud. experimenta con el código. 


Un tercer método de direccionamiento es el 
INDEXED INDIRECT. Este tiPo de indexación utiliza 
solo el registro X, Es el método mas complicado. 


2049 AS DA LDA 4s00 
.3042 35 FE STA +$FB 
.2044 AS 71 LDA 4471 
¿58046 85 FC STA SFE 
.2049 M2 10 LD +$10 
«204A A9 00 LDA 4500 
«2020 31 FB STA <$FB,X) ¿STA en $8110 
«2039 AS AF LDA *SAF-— comienza Prog. 


bajo bute -$10 
STA en $00FB 
alto byte -$10 
STA en $00FC 

A+ bajo y alto b. 


MAA Y 


La dirección deseada es $8110; el bajo bute 310, 
el alto byte 381. El valor del registro % es 
restado del alto y bajo byte. Estos nuevos 
walores son Yuardados en la Página cero. Cuando 
el Programa es corrido el valor de % es sumado a 
ambos bytes (bajo y alto). 


Hay Jue tener Presente que muchos Programas 
Pueden utilizar memoria Por debajo de 58000 Para 
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Guardar cierta información (Por «ejemplo: Hish 
Scores) Pero no con la intención de Protección, 
Por lo. Yue hay que Prestar atención 
fundamentalmente 3 aquel códido que Pueda alterar 
la dirección $8990 Para arriba (hasta $C000), 


CARTRIDGES DE 16 K 


SESSIIa=S=== 


Existen cartrid9es de S3K de memoria ($9009 a 
S$9FFF y los de 16K (33009 a $BFFF). 

Los cartridaes de 16K son similares a los de S3k. 
La Principal diferencia es que la memoria ocuPada 
Por el interprete BASIC es ahora ocupada Por el 
cartridae. 

Cuando el cartridse esta colocado y encendemos la 
computadora esta busca CBMS9 (ya comentado). Si 
la computadora encuentra — CEMBD, entonces 
chequeara el contacto +3 ¿GAMES del 
cartridoe-Port para detectar la Presencia del 
cartridae. Si el cartridse utiliza  16K la 
computadora colocara el valor $36 en la direccion 
$0001 Para desactivar el interrrete BASIC ya Jue 
el cartridee utilizara esa ares de memoria. 

51 Ud. sospecha Jue el cartridae «es de 16k, 
coloque $36 en la direccion +0001. 

5i existe codigo de maduina Por encima de $ABDD 
entonces el cartridge es de 16K. 

Estos cartrids9ez se copian a disco 0 cassette de 
la misma manera que los de SK. salvo Jue el area 
de memoria es mayor: 


3 2000 COGA "nombre" BS (cas. M1) 
Los metodos de Protección son similares a los de 


BK, salwo Yue en loz cartridoes de SK habra uno o 
dos esquemas de Proteccion y =n 16K seguramente 
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tres o cuatro, 

Utilice las mismas tecnicas que en SKj recuerde 
que ahora es necesario desactivar el BASIC. el 
KERMAL o ambos antes de ejecutar el Programa. 
Esto evitara cualquier Posibilidad de 
interferencia entre el Programa y el sistema 
operativo de su comPutadora. 

A continuacion mostraremos como Proceder. 

El Primer Programa «es un ejemplo de como 
desactivar el BASIC en lenguaje de maduina y el 
sesundo Para desactivar el KERMNAL: 


¿BADO AS 36 LIA $536 / desactiva BASIC 
«BADBZ 25 B1 STA $01 
«BAB4 40 62 80 JMP $2069 / comienza el Prog. 


«BABA AY 35 LIA $335 / desactiva KERNAL 
«BABZ 25 61 STA $01 
¿ADA 40 039 50 JMP 35003 


Estos Programas son completamente relocatrablez y 
Pueden ser utilizados en cualquier memo! “.. El 
comando  JMP. <JUMP) se determina Para cada 
Programa . 


Es imPortante. Para concluir, que con estos 


métodos y una dosis de Paciencia llevara a feliz 
termino cualquier desProtección de cartridoes. 
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HEA 
SaS=SR 
(91212) 
gani 
1003-0054 
D0aS-04g6 
aun? 

[slolal= 
[51512] 
15151215] 
BGaB 
aBac 
aBaD 
BBuE 
BuaF 
(55 MHs] 
Dali 
BBiz 
Ba13 
6614-0415 
ubl6 
bo1r-ba16 
pu19-0021 
p0z2-0023 
0B26-B0ZA 
DBZE-DBZC 
BBZD-4B2E 
BBZF-003D 
0031-4932 
4033-0034 
puU33-DO36 
BO37-4035 
DO39—0USA 
BOSE-BB3C 
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MAPA GENERAL DE LA MEMORIA 


JESTÑAL DESCRIPC ON 


====== 
Registro direccion de chip 
Control y memoria de cinta 
Float-Fixed vector 
Fixed-Float wector 

Busca caracter 

Bandera de comillas 

Guarda columna del TAE 
B=LOAD, 1=WERIFY 

Entrar Puntero del buffer 
Bandera de DIM asunmda 

tipo FF=etring, Bá=numerico 
tipo:Sb=entero. MbB=p.flot, 
Data scan 

Eandera de funcion 
B=INPUT;$40=GET;+$9BREAD 
Sieno arco tanzente 

Actual bandera 170 

Yalor entero 

Puntero: lugar moment. string 
Ultimo mom.string vector 
Lugar Para mom.strig 

Area del Puntero utilit. 
Area Para multiPliccion 
Puntero:com. del Basic 
Puntero:com. de variables 
Puntero:com. de vectores 
Puntero:fin de vectores 
Puntero: lugar de strings 
Puntero de string util 
Puntero:limite de memoria 
fictual nro linea de Basic 
Anterior nro de linnea 
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DO3D-4B3E 
DO3F-9040 
9041-4042 
9043-9944 
9045-0046 
0047-0043 
10049-004A 
004B-9940 
B04D 
D04E-0033 
0034-0056 
DOS7-0050 
gn6l 
1062-0065 
0B66 
gue? 
(5151512 
BD6S-DOBE 
BuSF 
gara 
0071-9072 
007 3-gu0SA 
DOTA-007B 
a0SB-D03F 
els) 
4031 
Ba92 
0093 
1094 
0093 
anSE 
aaa? 
al 
aaa 
BOSA 
DOE 
55Ela 
BSD 
BOSE 


La Fantástica 0.64 


113-114 
115-133 
122-123 


139-143 


144 
143 
146 
147 
1483 
149 
159 
151 
152 
153 
134 
135 
156 
157 
155 


Puntero Para el CONT 
Actual nro linea deDATA 
Actual direccion deDATA 
Vector INPUT 


. Hombre de wariable usada 


Direccion variable usada 
Puntero Para FORNEXT 
Puntero sawe Basic 
Simbolo comParacion 
Area trabajo extra 
Vector Para funciones 
Area extra numerica 
Acum 1:ExPonente 

Acum Z:Mantisa 

Acum 3:Si9no 

Puntero constante eval. 
Acum 1:orden alta 

Acum 2:ExP,Mant, 3i9no 
Compara si9nos 

Acura 1:orden baja 

Long. cassete buffer 
Subrutina CHRGET 
Puntero de Basic 

Walor END 

Status word 

Keyswitch PIA 

Constante de tiemPoícass.) 
LOAD=4, YERIFY=1 

Salida serie 

Laracter serie 

Final de cinta 

Resdistro a duardar 

Nro de archivos abiertos 
Entrada de unidad 

Salida unidad CMD 
Paridad caracter cassete 
Bandera bute recibido 
RUN=9, Modo Directos20 
Primer lectura de cassete 
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DOSF 
ODAD-DARZ 
DBA3 
guR4 
40A3 
513 
aBA7? 
aBAS 
DBA 
DURA 
BBAB 
OBAC-09AD 
DORE-BBAF 
G0BO-40B1 
DOB2-BBE3 
DBE4 
“OBS 
BOB6 
4BB? 
DBE3 
DBES 
OBBA 
OBBE-BBEL 
1BBD 
BEE 
DBEF 
Baca 
DBC1-9uc2 
BBC3-Bac4 
Baca 
Bucó 
Bac? 
Baca 
DO0CO-BBCA 
BCE 
BaLc 
Baco 
guCE 
BBCF 
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159 
160-162 
163 
164 
165 
165 
167 
165 
169 
170 
171 
172-173 
174-173 
176-177 
173-179 
130 
131 
132 
183 
134 
135 
136 
13/-128 
129 
199 
191 
192 
193-194 
195-1965 
197 
199 
199 
200 
201-202 
203 
204 
205 
206 
2ur 


Seaunda lectura 

Reloj Jiffy HML 

Bit serie 

Cuenta lazos 

Cuenta caida 

Puntero del buffer cassete 
Cabeza 3rabación 

Error lectura 

Comienzo escritura 

Scan de cassette 

Largo escritura 

Puntero cassete buffer 
Direccion fin de Prosrama 
Constantes de tiempo 
Puntero:comienze del buffer 
l=contador habilitado 
Próximo bit por RS232 
Error de lectura de caraca 
Laracteres nombre archivo 
Corriente archivo logico 
Corriente dirección ¿ria. 
Unidad funcionando 

Puntero al archivo 

Lectura de caracter entrada, 
Hro de bloques restantes 
Mord buffer en serie 
Interlock motor de cassete 
Dirección comienzo 140 
Puntero Kernal 

Última tecla Presionada 
Mro de caracteres en buffer 
Bandera de reverso 

Fin de linea de IMPUT 
Fila, columna cursor 
Tecla, nro 64 si ninguna 
B=cursor Flashearnte 

Luenta de caida 

Carácter bajo el cursor 
Cursor ParPadeante 
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BODO 
BOD1-6BDZ 
BBD3 

BOD4 

BBDS 

BaDE 

Ban” 

BBD3 
aBDS-DOFZ 
OBFZ-DUES 
DOFS-BOFE 
auF7-BarF3 
OOFI-BAFA 
B100-610A 
a1900-013E 
B100-B1FF 
0200-0233 
B2N9-B262 
263-260 
B26D-0276 
u277-B230 
v201-D202 
DI63-Band 
0283 

4286 

paa? 

02388 

B289 

B28A 

a28B 

past 

BZ5D 

B28E 
BESF-290 
B2Z31 

g292 
B223 

Bz94 
1293-0235 
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203 
209-210 
211 
212 
213 
214 
215 
216 
217-242 
243-244 
245-246 
247-245 
249-250 
206-266 
256-318 
256-511 
512-600 
601-610 
611-620 
621-530 
631-640 
641-642 
643-644 
645 
646 
£47 
648 
642 
650 
651 
6ñ2 
633 


654 


661-662 


Inareso de Pantalla“teclado 
Puntero linea Pantalla 
Posicion del cursor 
Bandera modo comillas 
Longitud linea de Pantalla 
Fila del cursor 

Ultima entrada 

Hro de INSERTS 

Tabla enlace de lineas 
Puntero color de Pantalla 
Puntero de teclado 

Puntero :entrada RS212 
Puntero:salida RS232 

Punto flotante al ASCII 
Error de cassette 

Area del espacio Procesador 
Buffer inorezo de Basic 
Tabla archivo logico 

Tabla de unidad 

Tabla direccion secundaria 
Euffer del teclado 
Comienzo memoria BASIC 
Tope memoria BASIC 

Bandera serial bus 

Actual codión de color 
Color en el cursor 

Page de memoria de Pantalla 
Maximo esPacio de teclado 
Rerite todos las teclas 
Repite contador veloz 
Repite contador retrasado 
Shift de teclado 

Ultimo Patron de shift 
Puntero :tabla de teclado 
Mode shift de teclado 
Bescroll habilitado 
Registro control RS232 
Registro comando RS232 
Bit timina 
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9297 
9258 
9299-029A 
B23E 
asc 
0251 
025 
929F-02A0 
u2A1 
BZAZ 
02m 
Bana 
B2AS 
82C0-B2FE 
0300-0301 
0302-0303 
0304-0305 
9306-0397 
6308-0309 
930A-830E 
asac 
0380 
a30E 
a30F 
6316 
0311-6312 
0313 
0314-0315 
0316-0317 
0318-0319 
031A-0318 
6310-0311 
O31E-931F 
0320-9321 

| 0322-8323 

| 0324-0325 

| 0326-8327 
9328-8322 
032-0328 
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663 
564 
BE5S-666 
667 
668 
669 
67rb 
6r1-672 
673 
674 
675 
576 
577 
74-766 
768-769 
770-771 
772-773 
774-773 
TI6-P77 
778-779 
72u 
7el 
vaz 
783 
7a4 
725-726 
rar 
res-789 
790-791 
792-793 
794-795 
TI6-797 
198-799 
S00-8B1 
802-803 
204-895 
206-287 
303-302 
s10-511 


RS232 status register 

Nro de bits a enviar 
Codigo de velocidad RS232 
Fin de inareso buffer RS232 
Comienzo de ingreso buffer 
Comienzo de salida buffer 
Fin de salida buffer RS232 
IRG 140 

CIAZ (NMI> 

CIA1 Timer A 

CIAL InterrupPt 

CIAL bandera Timer A 


Marcador de linea Pantalla 


(Sprite 11> 

Mensaje de error asociado 
Comienzo Basic warm 
Basic crunch 

Mustra awiso asociado 
Comienzo nuevo codigo Basic 
Toma elemento aritmetico 
6514 accumulator. 

6510 registro x 

6518 registro y 

6510 status register 

USE instruccion Jump 

USR direccion Jump 

sin uso 

Hardware Interrupt vector 
Break Interruf vector 

AMI Interrupt vector 
UPen vector 

Close vector 

Input vector 

DutPut vector 

Restore 10 vector 

INPUT vector 

OUTPUT vector 

StoP wector test 

GET wector 
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nana PPD: 


B32C-B32D 
BIZE-032F 
B330-0331 
9332-0333 
a334- da 
BI3C-43F. 

B348- Ba7E 
1350-B3BE 
B3CB-B3FE 
D4b0-B7FE 
0300-9FFF 
B000-9FFF 
ABBM-BFFF 
ADMN-BFFF 
COMB-CFFF 
DOGBA-DOZE 
D404-D4 10 
DEMM-DEFF 
ICON IICBF 
DIVO-DDGF 
D000-DEFFF 
EGDM-FFFF 
EDUD-FFFF 
FF31-PFFS 
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312-313 
314-315 
316-817 
319-819 
320-827 
320-1018 
332-094 
396-938 
360-1022 
1024-2047 
2048-40939 
32769-40959 
40350-49151 
49060-43151 
49152-53247 
53240-53294 
34272-54300 
30206-56319 
30320- 56335 
30376-36591 
33243-57294 
37344-63333 
357344-63535 
163409-63525 


Abortado 140 vector 
Comienzo warm vector 
LOAD vector 

SAVE vector 

sin uso 

CASSETTE BUFFER: 

¿(Sprite 13) 

C3Prite 14) 

(Sprite 15) 

Memoria de Pantalla 
Memoria Ram BASIC 
ROM cartridae 
ROM Basic 
RAM 
Memoria RAM 
ideo Chir (63667 
Sound Chip (6581 SID) 
Memoria color mblle 
Interfaz chip 1.1R0 
Interfaz chip 2,NM1 
Alternativaiset de caracts 
ROM: sistema operativo 
Alternativa: RAN 
Tabla Jump 
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MISCELANEAS 


2 TRABAJANDO CON CHR$ 
Cualquier codigo CHR$ o una combinación de 
codigos Pueden ser asignados a un string: 


100 Cé=CHR$(147): REM LIMPIAR PANTALLA 
200 PRINT C3"HOLA" 


E 


2 EJECUCION DE COMANDOS DIRECTOS DESDE UN PROG. 
Es facil hacer a un Pro9rama simular que 
determinados caracteres han sido tiPeados, La 
idea es Pokear mediante el Programa los valores 
FHR$ de uno 0 mas caracteres en el area de 
memoria en el buffer del teclado (ver mara de 
memoria en capitulo 7). Cuando el Pro9rama haya 
terminado su ejecucion la computadora escribira 
REHDT vv luego resPondera a los caracteres 
contenidos en el buffer como si hubieran sido 
tiPeados en modo directo Por ld, 

El buffer del teclado ocuPa las direcciones desde 
631 hasta 640, Trabaja en conjunción con la 
direccion 198, la cual lleva la cuenta del numero 
de caracteres Pokeados en buffer. 

Corra el siguiente Programa: 


19 FOR I=1 TO 10:POKE 630+1,64+] 
20 NEAT:FOKE 198,19 


Luego de READY aPareceran las diez Primeras 
letras del abecedario. 

La aPlicacion interesante de esto es due “si Ud. 
Pokea los caracteres de un comando ejecutable 
como RUN, LOAD. LIST, etc entonces estos Podran 
ejecutarse automaticamente si adrega al buffer el 
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CHR$ corresPondiente a la tecla RETURN due es el 
valor 13. Yer aPendice de codisos ASCII y  CHR$ 
del Manual del Usuario, 


o 


2 LISTANDO DESDE UN PROGRAMA 

Si Ud. ejecuta un comando LIST desde un Programa, 
el listado se efectuara. Pero la ejecución del 
Programa se detendrá, Ud. Puede utilizar la 
siguiente rutina Para Pokear el comando RUN en el 
buffer del teclado y ejecutar el RUN ni bien el 
listado se termine, 


100 FOR I=631 TO 634: READ A:POKEL,A 
200 NEXT:POKE195,4 

300 DATA 82,85,78,13 

464 LIST 


A 


2 CARGA AUTOMATICA 
Cuando Ud, desee cargar un Programa desde otro en 
forma automatica Puede utilizar: 


10 PRINT"LOAD"CHR$C34) "nombre "CHR$(34) 
200813 arribal" 

20 POREGS1, 13: POKEG32, 62: POKEE33, 25: 
POKES34, 78: POKES25, 13:POKE198,5: END 


Cuando esto sea ejecutado, actuará como si Ud. 
hubiera tipeado el comando LOAD y lueso tireado 
RUN, 


Si Ud. utiliza casstte reemplace el numero 2 For 
el 1. 


aforo 
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5 CARGANDO PROGRAMAS CON DATASSETTE 
La manera mas fácil de cargar 3 correr un 
Proarama desde otro es: 


160 POKES31,131:POKE198, 1 


Esto Produce ¡idéntico efecto Jue  Presionado 
simultaneamente SHIFT-RUN4STOP, 


no 


>? SUPRESION DEL "2" EN LOS INPUT 

Se trata de utilizar el teclado como un "device", 

El numero de device corresPondiente al teclado es 
cero (0) y Puede tener un canal abierto Para si. 


198 OFEN1,D 

20 PRINT "ESCRIBA ALGO"; 

30 INPUTH1, AS 

40 PRINT 

59 CLOSE 1 

60 PRINT "UD. HA ESCRITO: "A$ 


La linea 10 abre un canal de entrada (INPUT; la 
40 es necesaria Para mover el cursor a la Próxima 
linea y la linea 50 cierra el canal. 

Con este método se elimina el signo de 
interrogación Pero Ud. debe controlar 
cuidadosamente la Posicion del cursor. 


Dtra manera de evitar el signo de interrogación 
es utilizando GET en lugar de INPUT: 


10 E9="" 
20 POKE 207,8:POKE 204,B:GET A$:1F A$="" 
THEN 18 
30 IF A$=CHR$C13) THEN PRINT CHR$(32):G0T0 40 
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49 PRINT As; :B3=B3+A$:G0TO 20 
59 REM LO INGRESADO ES GUARDADO COMO ES 


Es necesario PRINT CHR$(32) (esPacio) Para aPagar 
el cursor en caso que este encendido cuando Ud. 
Presiona la tecla RETURH. 


fo 


2 UTILIZACION DE TECLAS SELECCIONADAS 

La siguiente rutina le Permitira detectar si una 
tecla fue Presionada dentro de un  23ruPo 
determinado de caracteres, el que Ud. necesite 
utilizar. 


19 GET A$:J=1:FORI=1T04: 

20 1F AS=MIDS$("ABCD", 1,1) THEN J=I+1 
30 NEXT 

49 ON J GOTO 10,333.bbb.ccc. ddd 


La linea 44 Permite direccionar segun la tecla 
Prezionada. E 

En el ejemplo aaa.bbb.ccc.ddd, son los numeros de 
linea a los cuales yo quiero derivar el Programa, 
se9un ABC o D sean Presionadas. 

RECD es el S9ruPo de caracteres seleccionado, Este 
S9ruPo Puede ser tan laróáo como quiera e inclusive 
Puede incluir los codisos de las teclas de 
funcion. 


jr 


? UTILIZANDO EL COMANDO GET. 
Un buen Programador escribiria esto! 


19 PRINT "TOQUE UNA TECLA PARA COMTIMUAR" 
¿0 GET AS:1F As="" THEN 20 
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Un mejor Prosramador borrará el buffer. 
teclado Primero. De esa manera i9norara 
teclas Previamente Presionadas' 


10 PRINT "TOQUE UMA TECLA PARA CONTINUAR" 
15 GET A$: IF A$<>9"" THEM 15 
20 GET AS: IF A$="" THEN 20 


Dtra alternativa Para vaciar el buffer es: 
15 POKE 198,9 
o a 


5 COMANDO GET CON CURSOR 

Una desventaja del comando GET es Yue no Provee 
el cursor Para indicar al usuario la Preaunta. He 
aqui un metodo Para obtener el cursor: 


10 POKE 204,9 
20 GET A+F:POKE 207,0:1F A$="" THEN 20 
30 POKE 204.1:PRINT AS 


El POKE en las lineas 19 Y 28 le indican a la 
computadora Jue encienda el cursor mientras 
espera Yue una tecla sea Presionada. La lines 34 
aPaga el cursor e imprime el valor de Af, Sera 
necesario tocar Por lo menos la barra espaciadora 
para no dejar el cursor en Pantalla. 


a 
> SOLUCIÓN DE ERRORES DE DATA 


5i Ud. obtiene un ILLEGAL QUANTITY ERROR en una 
sentencia DATA cuando corre 2l Prosrama, tiPee lo 
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sisuiente y obtendra el numero de linea donde 
encuentra el error: 


PRINT FEEKCE3I+256RPEEKC64o 
A 


+ RESET 

Cuando a ld. le suceda que un Programa bloquee su 
computadora Y las teclas RUN“STOP. - RESTORE no 
dewelwan el cursor. sera el momento de usar un 
RESET (aPlicable en casos de lenguaje de 
maduina). 
Un reset basicamente es un switch que conecta los 
Pins 1 y 3 del User Port (ubicado en la Parte 
trasera derecha, de 12 Pins a contar de izduierda 
a derecha, es de decir que el Pin 12 es el que ze 
encuntra mas al borde de la  madwina). ñ 
continuacion se muestra el circuito en el cual se 
ha contemplado la eliminación de todo riesgo Para 
la computadora, 


64 RESET SWITCH 
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> COMYERSION HEXADECIMAL 

Trabajando con la C-54 el usuario desde .sus 
Primeros Pasos en computación encontrará a menudo 
nimeros hexadecimales (base 16% mus utilizados, 
fundamentalmente :n los Prodramas en lenduaje de 
maquina. frecuentemente utilizados como 
suberutina en Pro3ramas BASIC. 


A continuación mostramos una rutina ue le 
Permitirá realizar ambas conversiones, es decir 
de decimal a hexadecimal y viceversa. 
Cuando convierta hexadecimal a decimal ingrese un 
numero de cuatro digitos, usando ceros cuando sea 
necesario. Por ejemplo, +9A sera BOSA, 


19 PRINT " 1- DEC A HEX" 

20 PRINT " 2- HEX A DEC" 

30 N$="0123456/59ABCDEF " 

48 PRINT: INPUT A 

59 IF A=2 THEN 139 

69 IF A<S1 THEN 18 

78 PRINT"INGRESE * DEC"; INPUT A:B=1:C0=3 

39 D=16tC:PRINT As :PRINT "= $";:A=A+*1 

396 1F A-D54 THEN A=A-D:B=E+1:G0TO 90 

100 PRINT MIDSCNS,B, 1); :B=1:C=0-1:D=1610 
110 IF Co-1 THEN 20 

120 PRINT:PRIMT:GOTO 10 

130 PRINT "INGRESE + HE"; INPUT H$:D=0:0=3 
149 FOR Msi TO 4:FOR W=0 TO 15 

150 1F MIDSCHS, MM 19=MIDS0H5,b+1,10 THEN 170 
160 MEXT MW 

17% Di=Wic16 1000: D=D+D1:0=0-1: NEXT MM 

180 DE=INTCD):PRINT"$"H3;" =";DE 

199 PRINT:GOTO 19 


IND ICE 
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